#91 MAY 1984 
$2.95 (3.50 Canada} 








The micro invasion 
has begun. And, chances 
are, you've now got a lot of 
different people in a lot 
of different departments 
using a lot of different 
micros. 

Now there's a way for 
you to control and maxi- 
mize the benefits of all the 
different micros in your 
domain. 


Fight back with dBASE II° 


dBASE II is the relational database 
management system from Ashton-late 
that enables you to manage your micro- 
based corporate data resources with the 
high level of consistency and sophistica- 
tion you’ve enjoyed with mainframe and 
minicomputer systems. 

Armed with dBASE II and the 
dBASE II RunTime™ program develop- 
ment module, you can write programs 
which will enable micro users in each 
department to “do their own thing” while 
creating complete database consistency 
throughout the company. 

dBASE II is a powerful, flexible way 


for you to effectively manage the micro 
proliferation. 
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Help is here. 
If you'd like to know more about 

how dBASE II and RunTime can help you 
win the micro management battle, contact 
Ashton-Tate today. 10150 West Jefferson 
Boulevard, Culver City, CA 90230. 
(800) 437-4329, ext. 217 . In Colorado 
(303) 799-4900. In the U.K. (0908) 568866. 


ASHTON ‘TAIE 


dBASE II is a registered trademark and RunTime is a trademark of Ashton-Tate. 


Suggested retail price for dBASE II is $700. 
© Ashton-Tate 1984 
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FORTH GIVES YOU 
TOTAL CONTROL 





GRAPHICS « GAMES « COMMUNICATIONS 
ROBOTICS ¢ DATA ACQUISITION *« PROCESS CONTROL 


FORTH: for Z-808 8080, 8086, 68000, and IBM® PC 
(Complies with the New 83-Standard) 


e FORTH programs are instantly 
portable across the four most 
popular microprocessors. 


e FORTH is interactive and 20 
times faster than BASIC. 


e FORTH programs are highly 
structured and easy to maintain. 


e FORTH provides direct control 
over all interrupts, memory loca- 
tions, and i/o ports. 


e FORTH allows full access to 
DOS files and functions. 


e FORTH application programs 
can be distributed as turnkey 
COM files with no license fee. 


e FORTH Cross Compilers are 
available for ROM’ed or disk 
based applications on most 
microprocessors. 


e@ Custom programming, con- 
sulting, and educational services 
available. 





/ 


FORTH Application Development 
Systems include interpreter/compiler with 
virtual memory management and multi- 
tasking, assembler, full screen editor, de- 
compiler, utilities, and detailed technical 
manual. Standard random access files used 
for screen storage, extensions provided for 
access to all operating system functions. 
Z-80 FORTH for CP/M® 2.2 or MPI/M Il, 
$50.00; 8080 FORTH for CP/M 2.2 or 
MP/M II, $50.00; 8086 FORTH for CP/M-86 
or MS-DOS, $100.00; PC/FORTH™ for PC- 
DOS, CP/M-86, or CCPM, $100.00; 68000 
FORTH for CP/M-68K, $250.00 


FORTH + Systems are 32 bit implementa- 
tions that allow creation of programs as large 
as 1 megabyte. The entire memory address 
space of the 68000 or 8086/88 is supported 
directly for programs and data. 

PCFORTH +................. $250.00 
8086 FORTH + forCP/M-86...... $250.00 
68000 FORTH + forCP/M-68K .. . $400.00 


FORTH Cross Compiler allows you to cus- 
temize the FORTH nucleus, recompile on a 
host computer for a different target com- 
puter, generate headerless and ROM-able 
code. Supports forward referencing. Pro- 
duces executable image in RAM or disk file. 
No license fee for applications, $300.00. 


FORTH Native Code Compilers 


For Z80 FORTH andCP/M........ $100.00 
For 8086 FORTH and CP/M-86..... $200.00 
ForIBMPCandPC-DOS ......... $200.00 
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Laboratory Microsystems Incorporated 
4147 Beethoven Street, Los Angeles, CA 90066 


Phone credit card orders to (213) 306-7412 


Extension Packages 

Software floating point (Z-80, 8086, PC only), 
$100.00; AMD 9511 support (Z-80, 8086, 
68000 only), $100.00; Intel 8087 support 
(8086, PC only), $100.00; Advanced color 
graphics (PC only), $100.00; Symbolic 
interactive debugger (PC only), $100.00; 
PC/TERM Communications/file transfer for 
Smartmodem, $60.00; Cross reference 
utility, $25.00; PC/GEN (custom character 
sets, PC only), $50.00; Curry FORTH Pro- 
gramming Aids, $150.00; B-Tree index 
manager, $125.00; B-Tree index and file 
manager, $200.00; QTF + Screen editor for 
IBM PC, $100.00; Quad Integer Math Pack, 
$25.00. 


AUGUSTA, Ada subset compiler from Com- 
puter Linguistics for Z-80 CP/M 2.2 systems, 
$90.00 


“Starting FORTH” tutorial by Brodie, soft- 
cover, $16.00. 


INTEL 8087-3 Numeric Coprocessor, 
$250.00 


Z-80 and 8080 FORTH require 48 Kbytes RAM. 8086 and 
68000 FORTH require 64 Kbytes RAM. Disk formats avail- 
able include: 8’’ standard CP/M SSSD, Northstar 5%’’ QD, 
Kaypro 5%’', Apple 5%’’, Micro-Mate 5%’’, MS-DOS 
5%'’, Osborne 5%’'’, DD, and Sage. Most other formats 
can be special ordered. Dealer inquiries invited. 


Z-80 is a registered trademark of Zilog, Inc.; CP/M is a 
registered trademark of Digital Research, Inc.; IBM is a 
registered trademark of International Business Machines 
Corp.; Augusta is a trademark of Computer Linguistics; 
PC/FORTH and PC/GEN are trademarks of Laboratory 
Microsystems Inc. 
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orials, ar d bug reports. Our readers tell us 
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Modula-2, Niklaus Wirth’s latest language, has been com- 
pared to Pascal and even Ada. Many programmers may 
have been eyeing this successor to Pascal. This article com- 
pares features of the two languages, giving Pascal program- 
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EDITORIAL 


Changes come and trip all your traps. You retire to write that novel and you find 
yourself behind a desk again, doing calisthenics with metaphorical braces on your teeth. 
Life’s like that. 

It’s like this. 

This magazine began over eight years ago as Dr. Dobb’s Journal of Tiny BASIC 
Calisthenics and Orthodontia, its slogan being ‘‘running light without overbyte,” 
and its notion being to promote the kind of programming gymnastics that didn’t waste 
a byte of then-precious memory. It was a good notion, and the best programmers on 
microcomputers gladly shared their insights on the pages of Dr. Dobb’s without mone- 
tary remuneration. Over the years the magazine continued to distribute, discuss and 
promote exemplary software: Tiny BASIC made way for Tiny C, a miniature version 
of Ada and other virtuoso performances in computer calisthenics and orthodontia. 

But changes come. Within the past year, Dr. Dobb’s has started paying its contri- 
butors, expanded its editorial staff and become affiliated withM&T Publishing, a profit- 
making company. It seems fair to ask how much of the original spirit of the publication 
can survive such changes. 

It’s a question whose answer I care about. I’ve been reading and enjoying Dr. Dobb’s 
for years, and recently, in the process of researching a book on the history of the micro- 
computer, I read all the early issues of the magazine. I came to love Dr. Dobb’s Journal 
for its irreverence, its personality, its exuberant embracing of tough problems for their 
very toughness. I don’t want it to lose those qualities. 

It’s not hard to imagine some sad scenarios for Dr. Dobb’s. It abandons 8-bit 
software as obsolete and becomes a machine-specific magazine dedicated to some well- 
known 8088 -based personal computer. It ignores any advances in computer architecture 
since 1979 and lives out its days recycling IMSAI technical notes. It “targets the home 
[or small business or knowledge worker] market”’ and disappears in the newstand col- 
lage. It fancies itself Time magazine and puts red borders on its covers. 

Happily, I can promise that none of those scenarios will come to pass in the forsee- 
able future. Who I am is Mike Swaine, former Senior Editor at InfoWorld, and as of 
this issue, Editor-in-Chief of Dr. Dobb’s Journal. My job is a new one; Renny Wiggins 
is still Editor. Renny promises, too. 

Changes come, and significant changes are ahead for Dr. Dobb’s, but changes, I 
think, that respect the magazine’s traditions. You can expect the Doctor to ex periment 
with some techniques (like an electronic bulletin board) for getting his methods of soft- 
ware distribution into the 1980’s, but don’t imagine that he’ll abandon his interest in 
cheap, public-domain software. Expect coverage of the Macintosh computer, not 
because it’s popular, but because good programmers are starting to do amazing things 
with it. Expect to see some industry leaders in the pages of the magazine, but not at 
the expense of new writers with something to say. 

Expect to see coverage of good implementations of languages and system software 
and utilities, and occasionally some really unusual things. For example, this month, 
Renny has put together a rather orthodontic issue, including an introduction to Modulo- 
2 for Pascal programmers, Ray Duncan’s piece on converting to the Forth-83 standard 
and an unusual article by Richard Grigonis of Children’s Television Workshop on what 
he calls ‘‘sixth generation computers.”’ 

Next month we’ll examine a much-discussed and much- purchased piece of soft- 
ware, Borland International’s Turbo Pascal. If half the things that are claimed about 
it are true... but we’ll find out next month. 


Mike Swaine 





This Month’s Referees 


David Cortesi, Contributing Editor 

David Clark, Pennsylvania State University 
Clay Phipps, ACM 

Henry Socha, SochaLogical Research 
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HOW FAST WOULD THIS PROGRAM RUN 
IF IT WERE COMPILED USING YOUR PASCAL COMPILER ? 









PROGRAM SIEVE: Ch tj 

| THE ERATOSTHENES’ SIEVE BENCHMARK } in ceo Pa fast as it would if it were compiled 

FYDE BYTE 0 ee: c~ As the following benchmarks show, SBB Pascal 

VAR I, PRIME, K. COUNTSITER : INTEGER: outperforms all other Pascal compilers for the PC in terms 

FLAGS : ARRAY [ 0..SIZE ] OF BOOLEAN: of speed, code size and .EXE file size: 

BEGIN Execution Code .EXE File 
WRITELN( ‘START’ ): Time Size Size 
FOR ITEM := 1 TO 10 DO BEGIN (secs) 

COUNT := 0; 





FOR | := 0 TO SIZE DO FLAGS |] := TRUE: 
FOR | := 0 TO SIZE DO 
IF FLAGS[1 ] THEN BEGIN 
PRIME := 1+ | + 3: 


SBB Pascal 10.90 181 4736 






K := | + PRIME: ~— MS-Pascal 11.70 229 2i 136 
WHILE K < = SIZE DO BEGIN 
FLAGS| tte FALSE: 

K := K + PRIME 
END: 

COUNT := COUNT + 1 
ND: 







Pascal/MT+ 86 14.70 294 10752 





E 
END: 
mr dati COUNT, ‘PRIMES’ ) 


can ag 


Turbo Pascal 15.38 288 9029 







Development Package 







$350.00 
2oftware Personal Use Compiler Package 607/272-2807 
Bui Iding also available Software Building Blocks, Inc. 
Blocks™ $95.00 Post Office Box 119 
SRS Ithaca, New York 14851-ON9 





Call for free brochure with full benchmarks. 


SBB Pascal is a trademark of Software Building Blocks, Inc. MS-Pascal is a trademark of Microsoft Corporation. Pascal/MT+ 86 is a trademark of Digital Research, Inc. 
Turbo Pascal is a trademark of Borland International. 
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Announcing Dr. Dobb’s 


Fifth-Generation 
Programming Competition 


The Challenge: To write a program that applies artificial intelligence techniques to a practical 
problem, and to extend the present boundaries of what a microcomputer can do. 


No rigorous definition of the field of artificial intelligence exists, but there are some programming 
problem domains that are commonly referred to as AI. These include, among others, pattern recogni- 
tion, learning, logical reasoning, the representation of knowledge, planning and problem solving. Pro- 
grams that make a stab at dealing with natural language or with speech or with visual input are regarded 
as AI programs, as are automatic- programming tools and chess programs. 


AI’s earliest successes were in game playing, but recent work in the area of expert systems has 
shown that artificial intelligence techniques can be of real use in practical real-world problem areas 
like medical diagnosis, geological research and chemical identification. Perhaps because of the success 
of expert systems, which typically require the processing of large amounts of information, the belief 
is widespread that microcomputers are inadequate for AI work. We disagree. We believe that there are 
AI problems waiting to be solved via microcomputer, and we conceive this competition to challenge 
the brightest microcomputer programmers we know of — Dr. Dobb’s readers — to find and solve some 
of those problems. A fantasy? Perhaps. But Dr. Dobb’s Journal has been publishing Realizable Fan- 
tasies since 1976. 


The Rules: The following items must be included in each entry: a functioning program on disk, 
a well-documented listing of the program, a prose description of the program explaining what it does 
and how it does it, and the entrant’s name and address. The program must be written in a high-level 
language for a microcomputer, and the entry must be postmarked no later than September 30, 1984 
and received by October 30, 1984 (overseas entrants take note). 


Although your choice of specific language, hardware, problem domain and approach to the prob- 
lem are all open, we offer some guidelines as to how we will be judging the entries. Your program will 
be judged for originality and significance of contribution first, and second on its intrinsic merits as 
a program: modularity of design, efficiency, portability, clarity, and so on. A program that executes in 
64K of memory will get higher marks than an equivalent program that requires 96K, but a 128K pro- 
gram that does significantly more may rate higher than either. If your choice of hardware or disk for- 
mat is an unusual one, you might query us before submitting your entry. 


The Payoff: The winner will receive a $1000 prize and will have the program and prose description 
published in Dr. Dobb’s. In the tradition of Dr. Dobb’s, this contribution to the advance of micro- 
computer software is to be placed in the public domain with full credit to the author. Support for the 
concept of public domain software is part of Dr. Dobb’s heritage, but it may not be part of yours. This 
competition is for those who genuinely want to make a contribution to the advance of microcomputer 
software. Send your entry to: 


Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303. 
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The editorial response card is a great way 
to talk to us, but don’t forget that Dr. 
Dobb’s Journal also welcomes letters to 
the editor as a forum for ideas, innova- 
tions, irascibility and even idiosyncrasies. 
Some letters may be edited for clarity 
and brevity. The Doctor likes hearing 
from you — keep on writing. 





Ackermann Elaborated 


Dear Editor: 

I am writing in response to the letter 
from Mr. Paul Condon (DDJ No. 88, Feb- 
ruary 1984). To logicians, Wilhelm Acker- 
mann is best known in the context of 
Hilbert and Ackermann, Mathematical 
Logic, 1928. In 1926 David Hilbert asked 
whether all computable functions are 
primitive recursive. Ackermann found the 
answer in 1928, with Ackermann’s func- 
tion. (A translation of Ackermann’s origi- 
nal article may be found in van Heijenoort, 
From Frege to Godel, Harvard University 
Press, 1967. Ackermann, W., ‘“‘On Hilbert’s 
Construction of the Real Numbers.’’) 

Primitive recursive functions are, 
roughly, those that can be computed from 
the simple functions of sum, product, 
power, and the operations of substitution, 
composition, and induction upon these. 
Ackermann’s function is clearly com- 
putable, but can be shown to “‘increase”’ 
more rapidly than any primitive recursive 
function. (A good reference is Hans 
Hermes, Enumerabililty, Decidability, Com- 
putability, Springer-Verlag, 1969. Also 
many texts on formal language theory 
discuss Ackermann’s function.) 

The interest in the question of whether 
or not there exists a recursive, but not 
primitive recursive, function lay in deter- 
mining if the mathematical definition of 
primitive recursion corresponds to our 
intuitive notion of ‘‘function computable 
by algorithm.’’ Ackermann’s function 
shows that primitive recursion does not; 
Church’s Thesis, almost universally accep- 
ted, is the view that the broader class of 
recursive functions does correspond. There 
can be no exact mathematical demonstra- 
tion that some class of mathematically 
definable functions does correspond to our 
intuitive ideas of computation, since the 
latter are necessarily imprecise. 

Recursive functions expand the class 
of primitive recursive functions by 
allowing for the calculation of the least y 
such that f(x=y) in, for example, the 
domain of natural numbers. Ackermann’s 
function can fairly easily be seen to be 


recursive; it can be calculated from the 
primitive recursive functions with the ad- 
dition of this minimization feature. What 
this shows is that the induction in the def- 
inition of Ackermann’s function is not 
“ordinary” induction. 

Perhaps the minimization feature of 
recursive functions is what Mr. Condon is 
getting at with his concluding remark 
about the correctness or incorrectness of 
certain definitions of Ackermann’s func- 
tion. I haven’t seen the definitions in 
question. 

Beyond the testing of recursion in 
computing languages that he mentions, 
the only “use’’ that I know for the func- 
tion is the theoretical one of categorizing 
classes of recursive functions. It is quite 
likely that Ackermann’s function has 
some wider applications in recursion 
theory of which I am unaware; I can en- 
visage applications in the study of proof 
theory for infinitary languages, via Godel 
numbering, or just in infinitary proof 
theory. It sure is fast, isn’t it? 

Sincerely, 

Jay Halcomb 
Philosophy Department 
University of Arizona 
Tucson, AZ 85719 


Dear Editor, 

In a recent letter, Paul Condon in- 
quired -about the origin of Ackermann’s 
function and asked of what use it is. Well, 
the story goes back to the mid 1920’s 
when Wilhelm Ackermann was working 
with David Hilbert on an ambitious pro- 
gram to put the foundations of mathema- 
tics on a firm axiomatic footing. Among 
several topics they studied was a class of 
arithmetic functions, defined on the non- 
negative integers, which they called “‘prim- 
itive recursive functions.” 

An exact characterization of the 
primitive recursive functions is a little 
too technical for this note. Roughly 
speaking, however, they are anything 
you can get by starting withjust constants 
and the successor function S(n)=n+1, 
followed by rules of composition that 
allow one to plug one function into an- 
other as an argument and to define new 
functions by induction through the 
scheme f(n + 1) = g(n, h(n)) where g and 
h are functions previously defined by the 
same rules. 


It turns out that the primitive re- 
cursive functions form a very large class. 
At that time it looked as though any func- 
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tion at all that was defined on the natural 
numbers and for all values of its arguments 
might in fact be primitive recursive. This 
question was raised by Hilbert in 1926. In 
particular, he asked: Can recursion be 
used to define a function that is not primi- 
tive recursive? The answer was given in 
1928 when Ackermann came up with an 
example of such a function. But the 
original Ackermann function was not the 
Same as the version that is currently 
fashionable. The original function had 
three arguments instead of two. The form 
currently popular (as quoted by Condon) 
is apparently due to Rozsa Péter in 1955. 

although she may have published earlier 
in some obscure Hungarian journal. 


Ack(i, j) = ifi=0thenj+ 1 else 
if] = 0 then Ack(i- 1, 1) else 
Ack(i - 1, Ack (i, j - 1)) 


Using Peter’s form, suppose one de- 
fines a new function A of one argument 
by putting A(n) = Ack(n,n). Then it can 
be shown (but not in this note) that the 
function A(n) grows more rapidly with 
n than any possible primitive recursive 
function of one argument, and therefore 
that A is not itself a primitive recursive 
function. This is what Ackermann proved 
and what his function was designed to 
illustrate. 

The growth rate of A(n) is really 
mind - - boggling. For comparison, consider 


are n occurrences ah the factorial sign. 
Now B(n) is primitive recursive and its 
first few values are B(0) = 0, B(1) = 1! = 1, 
B(2) = 2!!=2, and B(3) = 3!!! =... well, 
B(3) has 1747 decimal digits so I won't 
print it here. So B(n) gets out of the 
starting gate fast and grows at such a fan- 
tastic rate that if the entire universe were 
filled with high-density floppies they 
wouldn’t be sufficient to store the value 
of B(4). On the other hand, the value of 
A(3) is only 61, so A(n) gets off to a 
slower start. But A(4) is already enor- 
mously greater than B(4), and A(5) makes 
B(5) look like an infinitesimal quantity. 
The fact that Ackermann’s function 
is defined by a double recursion makes it 
useful as one kind of check on correct- 
ness of the implementations of recursion 
in language interpreters and compilers. 
However, a recursive form of definition, 
of course, does not mean that a recursive 
language is necessary to evaluate a function 
(although it is sometimes not obvious how 
to do so in a nonrecursive manner). I 
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offer two little Pascal functions, ack1 
(Listing One, below) and ack2 (Listing 
Two, below), each of which computes 
the same values as the recursively defined 
Ack (i,j) discussed above. Neither program 
uses recursive calls, so they easily can be 
translated for execution into languages 
such as BASIC. The function ack1 oper- 
ates by ‘‘faking” an evaluation stack. The 
function ack2 is more mysterious because 
it uses so little storage and runs so much 
faster than the function ack1. The inter- 
ested reader might want to figure out what 
is going on in these programs by inserting 
print statements that show the contents 
of the arrays after each iteration. 

Sincerely, 

Milton W. Green 

440 Sherwood Way 

Menlo Park, CA 94025 


Telegovernment? 


Dear Editor, 

We are in a period where many voters 
feel their vote means nothing. They do 
not feel their elected representatives care 
what their constituents want. As a con- 
sequence more and more people have 
stopped voting. 

Over the years the political control of 
our nation has become ever more cen- 
tralized in the federal government. At the 
same time the population has become 
more decentralized politically. Who is 
your representative? Does your represen- 
tative make any effort to keep up to date 
with the consensus of opinion in his/her 
district? What methods does your repre- 
sentative use to see that the people he/she 
represents know what he/she is doing? 

Today, we have the basis for alter- 
native methods of participation in govern- 
ment, as well asin other political activities. 
Computer-based telecommunications com- 
bined with television, either’ public or 
commercial, can provide the communi- 
cations links required to return govern- 
ment to the people. An ever increasing 
number of families now have a computer 
or terminal in the home. 

The time to start taking action re- 
garding the application of telecommunica- 
tions to government is now. By the time 
requirements and procedures have been 
decided we will already have enough users 
to implement any determinations made. 
It’s also important to prevent, through 
early action, perversion of the potential 
power of political telecommunications by 
power groups. ae 

One method of implementation might 
be to require every representative to main- 
tain a telecommunications computer as 
part of his office equipment. This would 
be accessed from ‘his district through an 
800 number, the maintenance of which 
could be a part of the requirements of 
doing business, as a local or national 
monopoly, for the telephone companies. 


We have entered a period of tech- 
nology where government in the United 
States can once again be of the people, 
for the people, and by the people. The 
development of television as an educa- 
tional medium, teletext, and computer- 
based telecommunications makes this 
potentially possible. The continuing reduc- 
tion in hardware costs makes it economi- 
cally viable. 

This proposal does not advocate an 
end to representative government at any 
level. Instead it would return the same 
control to the electorate enjoyed by the 
electorate in 1776. We would still need 
our present legislative, judicial, and execu- 
tive institutions as they are now consti- 
tuted; direct democracy allows no check 
or time delay on temporary and emotional 
public reaction. 

It’s necessary for us to implement 
special education on various policy prob- 


lems. The need for national “town 
meetings’’ has reached a critical level. 

It is my wish to start a national organi- 
zation to investigate, analyze, discuss, and 
possibly start implementation of public 
participation in government through tele- 
communications, television, etc. Anyone 
interested in participating should feel 
free to contact me. It will be difficult for 
me as an individual to provide the initial 
start of such an organization. This is based 
on both time and finances available, but 
I will endeavor to do my best. 

Yours truly, 

D. R. Crago 

P. O. Box 728 
Placentia, CA 92670 


eB 





Letters (Text begins on page 9) 


Listing One 


function ack1(i, j: integer): integer; 


var p: integer; a: array[0..4000] of integer; 


begin 
a{O] := i; alt]: = & p := 1; 
repeat 
if a[p-1] = 0 then begin 
a[p-1] := alp]+1; p := p-1 end else 
if a[p] = O then begin 
a[p] := 1; al[p-1] a[p-1]-1 end else begin 
a{p+1] := alp]-1; alp] := alp-1]; 
a[p-1] := al[p-1]-1; p := p+1 end 
until p = QO; 
ack1 := a[0] 
end; 
(End Listing One) 
Listing Two 
function ack2 (i,j: integer): integer; 
label 1, 2, 3; 
var p: integer; a,b: array[O..6] of integer; 
begin 
for p := 0 to 6 do begin a[p] := 1; bl[p] := -1 end; 
1: b[O] := b[O] +1; a[O] := b[O]+1; p := 0; 


2: if (i=p) and (j=b[p]) then goto 3; 
if b[p] <> a[p+1] then goto 1; 


p= prt; Dip] 
3: ack2 := a[0] 
end; 


-= bl[p]+1; alp] := 


a{O]; goto 2; 


(End Listings) 
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Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 


But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


The Well-Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see a new microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M* 
and process assembly language for the 
most popular microprocessor families. 


514” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


CPE M-BO version 3B cosc cee 
CP/M-86 or MDOS version ....... 
(when ordered with any Avocet product) 


EPROM Programmer -- Mode! 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
Biot 2710; 2532. 2/32, 2132A, 
27C32, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeg and Xicor EEPROMS. 


Avocet 
Cross-assembler 


¢ XASMZ80 

e XASM85 
XASM05 
XASMO09 
XASM18 
XASM48 
XASM51 
XASM65 
XASM68 





Target CP/M-80 
Microprocessor Version | 






¢ CP/M-86 


Versions e 


$250.00 


each 





$200.00 
each 










IBM PC, MSDOS** 





XASMZ8 
XASMF8 
XASM400 
XASM75 


F8/3870 


(Upgrade kits will be available for new 
PROM types as they are introduced.) 


rrosraramer. oy ee a Bee A $429 
Options include: 

e Software Driver Package -- 

e enhanced features, no installation 


e required. 

SCP INGO. Versione oo es Os $ 75 

MINE VOrsion oui ce oe $ 95 
Mee AIG Oo Oe $ 30 


8748 family socket adaptor... $ 98 
8751 family socket adaptor .. . $174 
© 8755 family socket adaptor... $135 


e G7228 Programmer by GTek -- baud 
e to 2400 ... superfast, adaptive program- 
e ming algorithms ... programs 2764 in one 
e minute. 


PPraratinerin: Sas es $549 


e Ask us about Gang and PAL programmers. 


¢ HEXTRAN Universal HEX File Con- 
e verter -- Converts to and from Intel, 
e Motorola, MOS Technology, Mostek, 
e RCA, Fairchild, Tektronix, Texas 
e Instruments and Binary formats. 


® Converter, each version....... $250 
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Call Us 


If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we’ll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


* Trademark of Digital Research ** Trademark of Microsoft 


AVOCET 
SYSTEMS INC: 


DEPT. 5-84 DDJ 
804 SOUTH STATE STREET 

| DOVER, DELAWARE 19901 
302-734-0151 TELEX 467210 
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Optimizing Compilers 

We asked for help finding a reference 
to what we thought was the first opti- 
mizing compiler, and we got some good 
responses, of which the most notable came 
from C. W. Medlock: 


‘IT believe you are referring to IBM’s 
Fortran H compiler for the IBM 360/370. 
As to the reference to this work that you 
are seeking, I believe that you are referring 
to our paper, “‘Object Code Optimiza- 
tion,’ Communications of the ACM, 
Vol. 12, No. 1 (January 1969), written 
by myself and E. S. Lowry. 

‘It would be unfair, however, to claim 
that we were co-authors of the first opti- 
mizing compiler. Indeed, credit belongs 
to such early pioneers as John Backus 
and his original crew for the fine job they 
did in generating the most-efficient code 
that the early versions of even IBM 704 
Fortran turned out. Many think that 
it was the quality of this code (compared 
to that produced by earlier compilers) that 
convinced the computing community of 
the feasibility of using high-level lan- 
guages at all! 

‘‘While we know of no other full use 
of these techniques in another compiler 
(and quite frankly wish we could find such 
a compiler for the C language for the IBM 
PC), there is at least one company, Com- 
puter Innovations, that claims to have such 
a compiler. We haven’t been able to test it 
to see just how ‘optimized’ the code it 
produces really is. 

‘“As to the optimization technique 
that Ed Lowry and I developed, it relies 
heavily upon tracing the flow of both data 
and control within a program to see which 
code items can be moved to a less- 
frequently-traversed portion of the pro- 
gram (or eliminated entirely as either 
redundant or producing output that would 
never be used), and to assist with the 
temporary assignment of variables to 
registers over the most frequently exe- 
cuted portions of the code. This analysis 
was performed over the entire compila- 
tion and the technique was thus called 
‘Global Program Optimization’.”’ 


Another reader, Owen Montgomery, 
also wrote to point out the importance 
of the early Fortran compilers. He says, 
“Fortran I was the first algebraic optim- 
izing compiler. At the inception of the 
Fortran project by John Backus’s team 
at IBM in 1954, most programming 
was done in machine code or simple as- 
semblers. So-called automatic coding sys- 


tems existed but would be regarded as 
little more than symbolic assemblers with 
built-in function libraries by today’s 
standards. Fortran, to be successful, 
had to produce very efficient object code. 
If not optimum and on a par with hand- 
coded programs, it would surely fail. The 
consensus among programmers of the day 
was that efficient programming could 
not be automated.” 

Owen’s letter included an illuminating 
quote from a paper by Backus, ““The 
History of FORTRAN I, II, and III,” 
ACM SIGPLAN Notices, Vol. 13, No. 8, 
August 1978. Read it carefully: 


“It was an exciting period; when later 
on we began to get fragments of compiled 
programs out of the system, we were often 
astonished at the surprising transforma- 
tions in the indexing operations and in 
the arrangement of the computation which 
the compiler made, changes which made 
the object program more efficient but 
which we would not have thought to make 
as programmers ourselves.... Transfers 
of control appeared which corresponded 
to no source statements, expressions were 
radically rearranged, and the same DO 
statement might produce no instructions 
in the object program in one context, and 
in another it would produce many instruc- 
tions in different places in the program.”’ 


A very few times we’ve had the ex- 
perience of being delighted by the clever 
object code a compiler generated, but 
never on a personal computer. On the 
contrary, the personal compilers we’ve 
used have produced the dullest, most 
predictable, most flat-footedly literal 
translation one could imagine. 

The entertainment value of the code 
is not the issue, of course. The crux of the 
matter is that a genuine optimizer can pro- 
duce the kind of low-level, foxy cleverness 
that an assembly programmer sweats to in- 
vent — and doesit by mechanical methods. 
That liberates the programmer; the brain 
power he or she would have spent on 
achieving tight code can instead be applied 
where it really matters: on the algorithm. 

What we’d like to know is, if Backus 
could accomplish this in 1954; if Lowry 
and Medlock could do it in 1969; if the 
techniques can be found in any of adozen 
computer-science textbooks; why don’t 
we have such compilers today? 


Timeless Language 


Meanwhile, we’ve been exploring the 
other end of the language spectrum. As 


part of a continuing (and probably futile) 
attempt to keep up with the state of the 
art, your Intern has been studying PRO- 
LOG. That’s the language that figures 
heavily in the Japanese plan to produce 
the Fifth Generation of computers. It is, 
effectively, an executable variant of the 
notation of format predicate logic. 

At the moment, most implementa- 
tions of PROLOG are handcrafted proto- 
types running in university computer 
centers, primarily in Europe. However, one 
implementation is a real, commercial 
product. Known as micro-PROLOG, it’s 
published by Logic Programming Asso- 
ciates Ltd. (10 Burntwood Close, London, 
England SW18 3JU; $275, shipping in- 
cluded). We recommend it. The manuals 
are more than adequate; the software 
works; and the package was delivered 
across half the world faster than some 
we’ve ordered from across the state. 

Micro-PROLOG is a fascinating piece 
of software in itself, entirely aside from 
the intrinsic fascination of an entirely new 
language. At its core is a small, fast Z80 
interpreter for a list-processing language, 
one that is strongly reminiscent of LISP, 
but augmented with pattern-matching 
primitives. This implements the core of 
PROLOG, because the core of aPROLOG 
interpreter is a recursive, backtracking 
pattern-matcher. 

The rest of the system is implemented 
in PROLOG. This is impressive, because 
“‘the rest’’ includes everything that makes 
the system usable, including an interactive 
front end that hides the LISP-like paren- 
thesized notation under a more natural 
syntax. This gives one confidence in two 
ways: it demonstrates that PROLOG is a 
“real”? language, since it can be used to 
write non-trivial software; and it affords 
proof that the core system is well-tested, 
since it can execute its own front end. 


PROLOG is something else again, it 
requires the same kind of head-spinning 
reorientation that accompanies a move 
from, say, Pascal to Forth, or from 
COBOL to APL. The most difficult part, at 
least for this student, is that PROLOG 
contains no concept of time. Every other 
language we’ve used contains an implicit 
notion of movement in time: the com- 
puter will do this and then it will do that. 

In PROLOG, every statement of a 
program is a candidate for execution at 
every moment. Actually, “‘statement’’ is 
a poor term for a programmer to use in 
describing a line of PROLOG; it carries 
too many implications from other lan- 
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guages. “Assertion” is a better term; a 
PROLOG program is composed of a num- 
ber of assertions about the world. In prin- 
ciple, all assertions are executed at once, 
in parallel, and those that turn out to be 
false are discarded. (In practice, the inter- 
preter tries them sequentially, but it 
isn’t cricket to assume that.) It’s this 
inherent parallelism that makes PROLOG 
a candidate for the system language of 
the Fifth Generation machines, but boy! 
does it twist your mind at first. 

The micro-PROLOG system includes 
a hands-on tutorial that serves to get you 
just barely started. Two other books may 
help. Programming in PROLOG by W. F. 
Clocksin and C. S. Mellish (Springer-Verlag, 
1981) is a reasonably good textbook on 
the use of the language. Logic for Problem 
Solving by Robert Kowalski (North-Hol- 
land/Elsevier, 1979) is an exhaustive, schol- 
arly exploration of the relationship be- 
tween Horn-clause logic (which PROLOG 
implements) and everything else in the 
world. It is heavy going, and parts are inter- 
esting only to an implementor of PROLOG, 
not to a user ofit. Still, parts of Kowalski’s 
book explain the rationale behind this 
initially puzzling language. 

One warning: the syntax of PROLOG 
is nowhere near standardized. Micro- 
PROLOG seems to be full PROLOG as 
described by Clocksin and Mellish (it may 
even be a superset). However, the syntax 
of micro-PROLOG has many differences 
of detail from that used by Clocksin and 
Mellish, and that in turn is different from 
the syntax that Kowalski uses. It is not 
difficult to translate from one to another, 
but it imposes an extra mental load. 

Are any readers also exploring PRO- 
LOG? Somebody must be, because our 
local bookstore can’t keep Programming 
in PROLOG in stock. Write and share 
your experiences. 


Prissy Program? 

Oscar Goldman writes to ask, “Did 
you know that RMAC is a delicate flower 
who turns her (his? its?) head in embarrass- 
ment at the presence of an error? Take a 
look at this listing: 


0000 3A0600 Ilda store 
inra ; typographical error 
0003 320600 sta store 
0006 OO store: db O 
end 


It took me quite a while to debug a pro- 
gram which had just that typo (of ‘inra’ 
for ‘inr a’). I think you might warn your 
readers of this one.” 

With pleasure, Oscar. What we have 
here is the result of the peculiarly flexible 
syntax of the Digital Research assemblers. 

Typical assemblers require a label to 
begin in column 1 of a statement. That 
permits a simple test for the presence of 
a label: if column 1 is blank, there isn’t 
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one. The DRI assemblers (ASM, MAC, 
RMAC) have a more complicated rule. 
They isolate the first word of a statement 
and look for it in the table of known 
operation codes and in the table of de- 
fined macro names. If the first word is not 
an opcode or a macro, it must be a label. 


That’s what happened here: since 
“inra”’ isn’t an opcode, RMAC decided it 
must be a label. It shows up in the sym- 
bol table listing. The fact that it was 
indented to line up with the other opcodes 
made no difference at all. 


This syntactic scheme can be useful; 
you can define pseudo data structures, 
indenting inner names under the names 
that contain them. However, as Oscar 
notes, it can also let you create some very 
tricky bugs. 








“O-PRO4 blows 
BASE Il away 


| Tell You Three Times 


Another correspondent, Michael Barr, 
writes with a tale of keyboard handling 
in MSDOS 2.0. We don’t have an MSDOS 
machine on which we can test his claims, 
but perhaps a reader can test and explain 
them. Here is his account. 

“I have discovered a peculiar effect of 
control-S. To see it, at the system prompt 
simply type control-S. Do it again, then a 
third time. Try it three more times. Now 
press control-S, followed by any ordinary 
character, then control-S again. Confused? 
So was I. 

“There are two DOS functions that 
are relevant. The first is function 7, which 


goes into a loop until you type a character 


and then returns that character. It works 
as documented. The second is function 
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BASIC, is ripping himself off. 99 
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11, which is documented to return a true 
flag only if there is a character waiting in 
the keyboard buffer. What it actually 
does is another matter. 

‘After the first control-S, that char- 
acter is in the buffer (as can be determined 
with either function 6 or function 7), but 
function 11 swears the buffer is empty. 
After another keypress, whether control- 
S or another character, assuming you have 
not gotten the first control-S out of the 
buffer, the buffer is empty while function 
11 returns a true flag. 

‘‘What happens after the third key- 
stroke? Well, that is exactly like the first. 
Why, then, do you actually get a character 
that third time? I can only speculate that 


At last! 


the command interpreter in DOS operates 
in the same way as a program of mine. 
What my program did was to call function 
11 until returned a true flag, then call func- 
tion 7 to get the character. That way the 
program could do something else instead of 
just idling until there was input. (It wasn’t 
doing anything terribly urgent — it was pol- 
ling location 0000:0417 hex to find out 
if the Caps Lock key had been pressed.) 
“The first entry of control-S had no 
effect on function 11, while the second 
caused function 11 to return a true flag 
with the buffer empty. Then the program 
called function 7, which just idled until 
another character was entered. Thus every 
third keypress was captured. I speculate 
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that the DOS command interpreter is 
doing likewise.” 

We can’t check out Barr’s problem, 
but here’s a hint for any reader who wants 
to look into it. It’s suggestive that the 
problem centers on control-S. That’s 
XOFF, or DC3, and in many systems it 
would be a signal to freeze screen output 
until a control-Q (XON, DC1) was en- 
tered. MSDOS contains a number of half- 
assimilated CP/M compatibilities (Barr also 
mentions the undocumented feature that 
control-P will toggle printer echo of the 
screen output, which is a CP/M conven- 
tion). CP/M 2 uses control-S to freeze the 
screen, releasing the screen when any 
further key is hit. Both keystrokes are 
swallowed in the system. Maybe that’s 
what MSDOS is trying to do, but not 
thoroughly enough. 


Computer Citizenship 


However, another point in Bart’s 
letter raises our hackles. In our oh-so- 
humble opinion, polling loops are bad! A 
program that refuses to read the keyboard 
until its poll shows that a character is 
waiting is a bad citizen; it defeats any 
number of nice features that the DOS 
could otherwise implement. It defeats the 
largest benefits of a buffered keyboard 
(see this column for May 1983, under the 
heading ‘“‘Software vs. Common Sense’’). 

Furthermore, a polling program is ab- 
solutely deadly in a multitasking system. 
It always uses its full slice of time even 
when it has nothing to do; that defeats 
the basic idea of multitasking, which is 
that one task can make good use of an- 
other task’s idle time. And multitasking 
systems are coming to micros: Concurrent 
CP/M is available now, and MSDOS 3.0 
is rumored to be one. 

Sure, a Caps Lock flag on the status 
line is a cute feature, but consider: Under 
Concurrent CP/M, a program like Barr’s 
would be checking the Caps Lock byte at 
times when the user was entering data to 
a completely different program. The same 
problem would probably occur under 
Microsoft Windows(tm) or VisiOn(tm) — 
it would be polling Caps Lock when the 
cursor was in another program’s window. 

This is an example of how a solution 
can go wrong when it is implemented at 
the wrong level of the system. The PC key- 
board lacks two 29-cent LEDs to display 
the state of Caps Lock and Num Lock. 
The PC operating system does nothing 
about it. So application programmers try 
to make up for it, either with a polling 
loop or by stealing the keyboard interrupt 
vector. And all the ones whose efforts 
succeed end up with programs that flat 
won’t work in systems where the hardware 
is a resource that has to be shared among 
multiple programs. BB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 190. 
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LIFEBOAT 


Associates 
1651 Third Avenue 


New York, NY 10028 
212-860-0300 


Circle no. 35 on reader service card. 


Please send me free information on: 


LJ Lattice and development tools 
|] Corporate purchase program 
L] Dealer program 

L_] OEM agreements 


(} Send me the complete LIFEBOAT 
software catalog. $3.00 enclosed 
for postage and handling. 


LATTICE, C-FOOD SMORGASBORD and 
LATTICE WINDOW,TM -; Lattice, Inc. 
MICROPRO, TM International Corp. 
SORCIM, TM Sorcim Corp. 


Company 
Address 
City 

State 
Telephone 


LIFEBOAT, TM Intersoft Corp. 

HALO,TM Media Cybernetics 
PANEL,TM Roundhill Computer, Ltd 
PMATE and PLINK,TM Phoenix Software 


Zip 


FLOAT 87,TM Microfloat 

IBM and PC,® TM International Business Machines 
MS,TM Microsoft 

CP/M86,TM Digital Research 


CP/M EXCHANGE 


by Robert Blum 








A few months ago, Terje Bolstad of 
Norway wrote to ask if I had any exper- 
ience with an undocumented device he had 
found in PIP called IRD:. Unfortunately, 
I had no prior knowledge of the IRD: 
device to share but was intrigued, as many 
of you have been, with its origin and pos- 
sible purpose. I decided to go directly to 
the mountain for further advisement. 

My first letter to DRI was promptly 
answered. Rather than being provided with 
an answer, however, I was referred for an 
explanation to the OEM from whom I 
had purchased my CP/M system. Since 
several of us had already done consider- 
able research on how IRD: worked, I 
didn’t feel that a side trip to another ven- 
dor was necessary. I wrote to DRI again 
to explain more fully what steps had been 
taken to decipher the mystery device’s 
purpose. The response to my second letter 
came via a phone call, but to no avail be- 
cause the answer was considered to be 
proprietary information of DRI. 

One further encounter with DRI 
proved to be no more fruitful than the 
first two. Undaunted, I took my quest 
for knowledge to the readers of this 
column in January. To stimulate the juices 
of adventure I offered a DD/J tee shirt to 
the author of the best answer. 

I should have known what would hap- 
pen next. However, I was caught off guard 
when my mail box began to fill with more 
than my usual quota of correspondence. 
Your responses to my request for help 
ranged from a few lines jotted on a post- 
card to catalog-sized envelopes overstuffed 
with program listings. As is always the 
case, and very pleasantly so, when dealing 
with DDJ readers the answers were most 
insightful and gave evidence to a great deal 
of work. 

It would be impossible to print all the 
responses that I received. With the excep- 
tion of some editing, what follows is a 
cross section of your answers to the IRD: 
mystery. 


IRD: No Longer A Mystery 


Dear Bob, 

I’ve just seen your column in the Jan- 
uary issue of Dr. Dobb’s. There really is 
no mystery about the device called IRD:. 
The letters “IRD” stand for ‘Infra-Red 
Detector.’ The IRD: device represents a 
peripheral device whose purpose, clearly, 
is to monitor the infra-red level in its 
vicinity. This can be used for various pur- 
poses, for instance, to shut down the com- 


puter when the programmer’s temperature 
rises above a certain critical level because 
of CP/M’s idiosyncrasies. But the truth, 
actually, is this: In the beginnings of CP/M, 
Kildall and associates used to engage in 
target practice using guns which emitted 
infra-red (instead of water) and had sev- 
eral IRD’s installed in the targets to record 
their hits. 

Oscar Goldman 


Dear Robert, 

I was so interested in your PIP mys- 
tery device that I had to solve the problem 
before I went to sleep. It seems that the 
IRD: driver is for the Intellec-8/Icom 
Reader. On my system PIP hangs (actually 
it keeps returning 07fh, which never signi- 
fies end of file). A very tight routine with- 
in PIP is entered and then sometimes never 
exited when the IRD: device is used. See 
Listing One (page 18) for the IRD: sub- 
routine taken from PIP version 1.5. 

Craig D. Miller 


Dear Robert, 

Internal Research and Development? 
Infra Red Device? Irreversible Route to 
Delirium? 

No, the mystery device is, in fact, the 
Intel Paper Tape ReaDer. Does anyone 
remember paper tape? Yes, PIP contains a 
built-in hardware driver for this device 
which is (was) used with the Intel Intellec- 
8 MDS system. At least this was true with 
the V1.4 version of PIP, and I assume the 
CP/M 2.2 version follows suit. 

As for the details, the following ac- 
tions are performed when each byte is 
read from the IRD: device during a PIP 
transfer: 


(1) The value OCH is output to port 01H. 

(2) The value 08H is output to port 01H. 
This strobes the paper tape reader 
mechanism. 

(3) PIP loops until bit 5 of port 01H is set 
to 1. This is the Ready bit. 


(4) Finally, the lower 7 bits of port 03H 


are returned as the input value. 


Note that if asystem does not contain 
I/O ports 1 or 3, the net effect of all this 
will be to return a neverending string of 
7fh’s, which is what you observed. 


IRD: is, no doubt, useless on 99% of 
CP/M-based systems. In fact, it could be 
dangerous on systems which use these I/Q 
ports for other purposes. 

Now that you know about the Irresis- 
tible Riddle to Decode device, you might 
want to buy an Intellec-8 system in order 


to realize the full potential of your CP/M 


software. 
Rick Hollinbeck 


Dear Mr. Blum: 

I think I can shed a little light on the 
mystery of the IRD: device in CP/M 2.2’s 
PIP.COM. The code appears to drive a 
strobed parallel input port device. To the 
best of my recollection, the earlier Intel 
MDS/Intellec systems have a paper type 
reader addressed at these port addresses. 
This suggests that IRD: stands for Intel 
ReaDer. The reason it performs differently 
on various systems now becomes clear — 
it depends on what sort of device (if any) 
you have addressed at these port addresses. 
If you don’t have any device on port 03h, 
you will (hopefully) input an FFh which 
will be masked to 7Fh, which is what you 
got in your disk file. 

This is most likely a remnant of the 
days when CP/M was still being developed, 
and that is why Digital Research doesn’t 
like to discuss it. Remember, the original 
CP/M was primarily written in PL/M, 
hosted on an Intel development system. 
They had to read the CP/M utility object 
tapes somehow, and this is probably how 
they did it. 

Terence M. Kennedy 


Dear Robert, 

It should be obvious to everyone that 
IRD: is DRI spelled backwards. However, 
since acronyms have to stand for some- 
thing, and Inc. Research Digital sounds 
really horrible, I propose we christen our 
device (DRI seems to want to disown the 
poor child) ‘“‘Interminable Repetitious 
Device,’ in honor of its propensity for 
generating an endless stream of s’s. 

I’m sure that if we devote enough col- 
lective effort, we can find practical uses 
for IRD:. In fact, I have already thought 
of one: By PIPing IRD: to a disk file, we 
have a convenient, fast way of generating 
a large file in order to test some program. 

David Kettle 


Dear Bob, 

I suspect that IRD: is simply DRI 
backwards. If it has to have a meaning, 
perhaps it would be “Incorporated Re- 
search Digitalizer,’’ or some such. 

Roy Lipscomb 


Dear Sir: 

ARD:, IRD:, PRN: — three popular 
peripheral devices. 

This is explained in the documenta- 
tion for CP/M V1.3, copyrighted by Digi- 


cineca ent nse gS lek ae le oh a la eg ep a en a a 


16 


Dr. Dobb’s Journal, May 1984 





tal Research, dated 1976. When the new 
guide was printed and stapled into a neat 
booklet the meanings were deleted and 
PIP.COM was improved. Apparently, PIP’s 
internal table was not completely changed, 
thus a remnant still exists: 


ARD: 
IRD: 


Addmaster paper tape reader 
Intel or Icom paper tape reader 


(these two were considered high- 


speed vs. the ASR-33) 


PRN: Tally hard copy printer 


There is also a table of error messages 
in PIP.COM that seem peculiar because 
I have not seen them reported before: tape 
stopped or illegal HEX character encoun- 
tered. The document also explained this 
in the paragraph about PIP.COM special 
functions when processing a punched 
paper tape. I now suspect they are related 
to ARD: and IRD: as they were never 
used when I assigned a cassette tape to 
PUN:/RDR.:. 

As you may have guessed, I have been 
an owner of a CP/M operating IMSAI sys- 
tem since November 1976 and, though not 
having an ASR-33 as a terminal, I did 
experience punched paper in those histori- 
cal days. 

Delmar Rawson 


There you have it, Terje. IRD: stands 
for Intel-Icom-Intellec-8 ReaDer and was 
used on that system for reading paper tape. 
Why all the secrecy about the IRD: de- 
vice? All we can do is guess, but I am 
betting that DRI still has an Intel system 
or two being used daily by one of Jerry 
Pournelle’s mad friends. 

Before I forget, my heartiest congrat- 
ulations go out to Delmar Rawson. He 
was not only fast but also correct. His 
DDjJ tee shirt is on its way. 

I would also like to express my thanks 
to each of you who helped me in finding 
the answer to the mystery IRD: device. 


CP/M Tidbits 


Included with Terence Kennedy’s re- 
sponse to the IRD: mystery were a few 
insights into how CP/M does its job: 


‘In reference to another mysterious 
topic of discussion in recent months, the 
reason some programs appear to ‘eat’ one 
character before warm booting is because 
the BDOS itself is reloaded. Let me 
digress for a moment. 

“In CP/M 2.2, there are three sanc- 
tioned ways to perform console I/O: via 
‘normal’ BDOS console I/O calls, via BDOS 
function number 6, and by calling the 
BIOS directly. In fact, the last two methods 
do exactly the same thing. I presume Digi- 
tal Research was preparing us for systems 
like MP/M and CP/M 3, where accessing 
the BIOS is a definite ‘no-no.’ 

‘‘Normal BDOS I/O works as follows: 
whenever a character is sent out to the 
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console, a check is made for an input char- 
acter being available; it is tested to see if 
it is a Control-S. Note that this is the only 
character that the BDOS is looking for at 
this time. If it is a Control-S, the BDOS 
enters a tight loop looking for the next 
character, which may be, for example, a 
Control-Q to resume output or a Control- 
C to warm boot. However, if the input 
character was not a Control-S, it is stored 
in a one-byte buffer in the BDOS, and the 
BDOS no longer performs any status 
checks during output. When the .COM 
program terminates with a RET to the 
CCP (as in STAT), the character is still in 
the BDOS’s buffer, and the next BDOS 
input call will retrieve it first, before 


calling the BIOS for more characters. If, 
however, the .COM program terminates 
with a warm boot, the BDOS isre-loaded, 
leaving the buffer empty; hence, one char- 
acter is gone. 

“This also causes an unfortunate 
interaction between BDOS function 6 I/O 
and the rest of the BDOS I/O calls. Pro- 
grams should never mix ‘normal’ BDOS 
calls with function 6 or BIOS calls. Other- 
wise, input characters may ‘vanish’ mys- 
teriously, only to reappear at a later 
input prompt. 

“Digital Research has a stop-gap 
patch for the latter problem, but only for 
MP/M II 2.1. They have apparently taken 
acompletely different approachin CP/M 3. 


HAS CP/M 
LEFT YOU IN 
THE DARK? 


With the MRS/OS Source Code, you can see the light. 


If you own a CP/M compatible 
operating system, you’ve had to put up 
with the mistakes and quirks of 
someone else’s programming. Until 
now. Now you can see the light with 
MRS/OS. In fact, MRS is a full operating 
system designed to replace CP/M 2.2 
or CDOS and it comes with complete 
source code. MRS is designed for Z80 
processors, runs CP/M software, and 
can interface directly to a CP/M BIOS, 
saving you a lot of sysgen time. 


"le 
Orders: 9 am - 10 pm EST 
Tech. inquiries: 7 pm - 10 pm EST 





CP/M is a registered trademark of Digital Research Corp. 


All this for under sixty bucks. 


With MRS, you get more than what 
you pay for. For under sixty dollars you 
receive fully commented source code 
for standard and extended BDOS func- 
tions, a sample BIOS, our all-in-one 
utility package and a 150 page manual. 

So if you’re tired of being in the dark 
with some other guy’s program, here’s 
the answer to your prayers. 


o> ae 


(includes shipping & handling in 
N. America; overseas add $12 ) 


Mass. orders include 5% sales tax 
INC. Westboro, MA 01581 
(617) 366-8969 


CDOS is a registered trademark of Cromemco Corp. 


16 Bowman Lane 


Circle no. 46 on reader service card. 
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In 3, they appear to examine characters 
as they do in 2.2; but if it is not an appro- 
priate control character, it is discarded. 
This is why type-ahead routines which 
worked with 2.2 will not function at the 
CCP level in CP/M 3. 

‘‘Here are two other tidbits that may 
be of interest to you. 


“The CP/M 2.2 ‘Reset Disk System’ 
BDOS function 13 returns a result param- 
eter in the A register. A is 0if no $$$.SUB 
file is active; otherwise it is nonzero. This 
is how the CCP knows whether or not to 
continue from the submit file. However, 
the function only looks at whether or not 
the first character of any filename is a 
dollar sign. This is why you may have 
noticed some strange extra disk activity 


and a general sluggishness if you have, for 
example, a filename beginning with a ‘$’ 
in your directory. It appears that the CCP 
attempts to open $$$.SUB, fails, and then 
attempts to delete $$$.SUB. 

“The CP/M 2.2 ‘Raw Console I/O’ 
BDOS function 6 has an undocumented 
additional option. An E register argument 
of OFEh merely checks the status of the 
console, and does not return or delete 
any pending input characters. This is con- 
sistent with raw character handling in 
CP/M 3 and MP/M II.” 


OUT: and INP: — 
Making Them Work 


Craig Miller also found the time to in- 
clude this brief explanation and the neces- 


CP/M Exchange (Text begins on page 16) 


Listing One 


sary assembler source code to implement 
the OUT: and INP: devicesin PIP.COM: | 


‘“‘When DRI upgraded PIP for CP/M 
Plus, the undocumented IRD: device was 
dropped and is now only available in V2.2 
of CP/M. I have found that the OUT: and 
INP: drivers are in PIP 3.0; however, the 
documentation doesn’t describe how to 
install them. The enclosed listing (Listing 
Two, below) shows how to do this.” 


BBJ 
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MVI A, OCH ;Turn reader on 
OUT O1H 
MVI A, 08H sTurn reader off 
OUT 01H 
WAIT: IN 01H ;Wait until reader has a character 
RLC 
RLC 
RLC 
RAR 
JG INPUT ;1f carry, then done (get char), else loop 
JMP WAIT ;Loop back 
INPUT: IN 03H ;Get character 
ANI 07 FH ;Mask parity bit 
RET (End Listing One) 
Listing Two 
sTHIS FILE WILL PATCH THE I/O ROUTINES INTO 
;PIP FOR VERSIONS 2.2 AND 3.0 (INP: AND OUT:). 
TRUE EQU OFFFFH INPJMP EQU 180H 
FALSE EQU 0 OUTJMP EQU 184H 
ENDIF 
PIP22 EQU FALSE 
PIP30 EQU TRUE ORG INPJMP 
JMP INPUT 
IF PIP22 | 
PATCH EQU 110H ORG OUTJMP 
PATCHEND EQU 1FFH JMP OUTPUT 
INPJMP EQU 103H 
INPCHR EQU 109H ORG PATCH 
OUTJMP EQU 106H 
ENDIF DATA EQU 84H 
STAT EQU 85H 
IF CPM30 
PATCH EQU 188H sip ay ae 
PATCHEND EQU 1FFH (Continued on page 20) 
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Don’t call her cheap. Call her beautiful. 


The Bonnie Blue’ 


Word Processing System for the IBM Personal Computer 





It’s obvious what makes her so cheap, but what makes 
Bonnie Blue so beautiful? Bonnie Blue is a new and easy-to-use 
word processing program for the IBM Personal Computer. 


The Full System. The Bonnie Blue System includes in one 
program a full screen Editor, a Printing module and a useful 
Toolbox. It includes the features you've come to expect, and 
more: 


complete cursor control: by character, word, line; page up and 
down instantly; go to top, bottom of document; auto scroll 
towards top or bottom 

word wrap 

margin justification, centering 

adjustable margins, tabs, indents 

reformat paragraphs 

move, copy, delete, paste blocks 

find with delete, insert, replace and wild card characters 

keyboard remapping 

multi-line headers, footers 


Bonnie Blue can handle lines longer than the screen is wide, 
by horizontally scrolling the line. And, unlike some programs, 
Bonnie Blue lets you include any displayable character in your 
text, such as block graphics and foreign language characters. 


Unique Features. With Bonnie Blue, you can “‘paint”’ 
display attributes onto your text, by the character, word, or 
line, or automatically as you enter text. With the monochrome 
adapter, you can paint any combination of underlined, bold, 
reverse video or blinking. With an 80 column monitor and the 
color/graphics adapter, this translates into a palette of 16 color 
combinations to choose from. And if your computer has both 
monitors, Bonnie Blue lets you use them both, shifting back 
and forth as you wish. 


IBM Personal Computer is atrademark of |BMCorp. Epson Graftrax Plus is a trademark of Epson America Inc. 


L] Send me the Bonnie Blue System. | am 
enclosing $50 (NY State residents please 
add 7% sales tax). 


4 Post Offi 
Bonnie Blue Software ri. v%32e"335 
] Please send literature. 

lhavea 





Powerful Printing Module. You can use these colors or 
display attributes to highlight text on the screen, and Bonnie 
Blue can remove them from a file when you want (all files 
created by Bonnie Blue are DOS standard). The Printing 
module understands these text attributes, and you can map 
them into any single printer function or combination. 

For example, normally you would want underlined text to 
print underlined. But you can tell Bonnie Blue to print 
underlined characters as both underlined and bold. Bright text 
on the screen can mean double struck, or emphasized and in 
italics. You are at the controls. 

The first Print formatting module supports all the text 
capabilities of the Epson MX series with Graftrax Plus. By the 
time this ad appears, we will be supporting other popular 
dot-matrix and letter quality printers. 

More than thirty “dot” commands give you added control of 
the format of your finished document. You can send it to a disk 
file instead of the printer, or preview the final page formatting 
on the screen. 


Toolbox. The Toolbox is a set of useful functions, called 
“filters” that allow you to extract information from your files 
and transform their content. With these tools, you can join 
files together, sort lines of text, count words, find and 
substitute patterns, etc. Writers and programmers find this a 
useful collection of productivity enhancers. 


Bonnie Blue is also great for a hard disk system. A thorough 
User's Guide, complemented by help screens and roadmaps, 
make the Bonnie Blue an exceptionally easy-to-learn and 
easy-tO-use system. 

Order yours today, or send for our free brochure. Bonnie 
Blue is available exclusively from Bonnie Blue Software, 
P.O. Box 536, Liverpool, NY 13088. 








[1 Checkenclosed () VISA ( MasterCard Sorry,noCOD. Minimum 

; NG: Eviniras recommended system: 
ree aN ‘ IBM PC, 128K, 2 disk drives, 
Signature PC-DOS 1.1 or 2.0, 80-column 

monitor or monochrome adapter, 

Name or both, Epson MX-80 or 
Address MX-100 with Graftrax Plus. 
2 aa Zip Versions available soon for PCjr. 
Company Write for details. 
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CP/M Exchange (Listing Continued, text begins on page 16) 
Listing Two 


COMM EQU 87H 
INIT: MVI A, OCEH -INIT 2661 TO 9600 BAUD, 8 BITS 
STA INITFLG 
OUT MODE 
MVI A, 03H 
OUT MODE 
MVI A,2/7H 
OUT COMM 
IN DATA 
IN DATA 
MVI Ca 
LXIL D,SIGNON ;PRINT THE PATCHED MESSAGE 
JMP 5 
INPUT: LDA INITFLG ;s INPUT A CHARACTER FROM DPC-100 
ORA A 
CZ INIT 
INPLOP: IN STAT 
CMA 
ANI 3 
JNZ INPLOP 
IN DATA 
ANI 7FH 
IF PIP22 
STA INPCHR 
ENDIF 
RET 
OUTPUT: MOV A,C ;OUTPUT A CHARACTER 
STA SAVCHR 
LDA INITFLG 
ORA A 
CZ INIT 
OUTLOP: IN STAT 
ANI 1 
JZ OUTLOP 
LDA SAVCHR 
OUT DATA 
RET 
SIGNON: DB '2661 SERIAL PORT AT 9600 BAUD',ODH,OAH,'S' 
INITFLG: DB 0 
SAVCHR: DB 0 
LAST: 
IF LAST > PATCHEND 
ERROR PATCH IS TOO LONG !!!!!!! 
ENDIF 
END 
(End Listings) 
pe a a ae al ae Nd ea eee ae ec a ee 
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As 
Sub wah” 
. TPL 


The Text Processing Language. A 
text-file runoff program  con- 
sisting of a set of text-processing 
primitive commands from which 
more complex commands 
(macros) can be built (as in Logo). 
Features include: 

e Complete customization of 
text processing through 
macro definition and expan- 
sion, looping structures, and 
conditional statements; 

e Adapts to any printer; 

e Pagination; 

e Text justification and center- 
ing; 

e Indexing and tables of con- 
tents; 

e Superscripts and subscripts; 

¢ Bolding and underlining; 

¢ Multiple headers and footers; 

e End notes and footnotes; 

¢ Widow and orphan suppres- 
sion; 

e Floating tables and ‘keeps.’ 


$50 


giv 
BAABY 


CHROME 
Chromatography data analysis 
program: 

e Graphic display of analog 
data; 


e Panning and zooming; 

e Automatic peak-finding and 
baseline calculation; 

e Full interactive peak editing; 

e¢ Computation of peak areas; 

e Strip charts on C. Itoh and 
EPSON printers. 


$100 


DBX 


Blocked Keyed Data Access 
Module. Maintains disk files of 
keyed data. Can be used for 
bibliographies, glossaries, multi- 
key data base construction, and 
many other applications. 

e Variable-length keys; 

e Variable-length data; 

e Sequential access and rapid 
keyed access; 

e Single disk access per opera- 
tion (store, find, delete) in 
most cases; 

e Multiple files; 

e Dynamic memory allocation 
for RAM-resident index and 
current “page” of entries; 

e Includes demonstration pro- 
gram and testbed program. 


$50 


PLANE 


Planimetry program: 


e Bit-pad entry of cross sec- 


tions; 


e Real-time turtlegraphics 


display; 
e Calculation of areas; 


e Saves calculations to text 


file. 


$100 








gst 
& or? 

& PDMS 

The Pascal Data Management 
System. A user-oriented data 
Management system in_ which 
numeric and alphanumeric data 
are stored in tables with named 
columns and numbered rows. 
Currently being used for dozens 
of different kinds of business and 
scientific applications, from _ in- 
ventory management to laborato- 
ry data analysis. Includes over 20 
Pascal programs; more than 
10,000 lines of code. Main 
features include: 













Maximum of 32,767 rows per 
file; 

Maximum of 400 characters 
per row, and 40 columns per 
table; 

Full-screen editing of rows 
and columns, with scrolling, 
windowing, global search/ 
replace, and other editing 
features; 

Sorting, copying, merging, 
and reducing routines; 
Mailing label program; 
Reporting program generates 
reports with control breaks, 
totals and subtotals, and 
selects rows by field value; 
many other reporting 
features; 

Cross-tabulation, correla- 
tions, and multiple regres- 
sion; 

Video-display-handling 
module; 

e Disk-file-handling module. 





Many other features. UCSD for- 


mats only. 
$250 













ZED 


Full-screen text editor; designed 
to be used either with-TPL or by 
itself. 
e Full cursor control; 
e Insert mode with word wrap; 
e ‘Paint’ mode; 
e Single-keystroke or dual- 
keystroke commands; 
¢ Command synonyms; 
¢ Global search and replace; 
¢ Block move, block copy, and 
block delete. 


$50 
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SCINTILLA 


A log logit curve fitting program 
for radio-immunologic data; must 
be used with PDMS (described 
above). 

e Multiple protocol files; 

¢ Quality control files; 

e Four-parameter non-linear 


curve fit. 
$250 


UCSD formats only. 















































A terminal emulation program for 
communication between com- 
puters of any size. 

e User-configurable uploading 
and downloading of files; 

e X-ON/X-OFF and 
EOB/ACK protocols; 

e Interrupt-driven serial input 
(for Prometheus Versacard in 
Apple I]); 

e Printer-logging. 


$50 


Check appropriate boxes: 








FORMAT PRODUCT PRICE — 
m 
[|] 8” UCSD SSSD _| DBX $ 50 ee 
(| 544” Apple Pascal -] PDMS $250 
(} 544” UCSD IBM PC 320k CL) TPL : = P< mee 
_} 8” CP/M SSSD L) ZED 
= 5,” nee MS-DOS ©) MINT $ 50 [_] MasterCard L_] vIsA [_] Check Ea ep: 
ove” GPM Weborne = eile ty yi (Please include card * 
— PLANE $100 and expiration date) SUBVERSIVE 


Apple and Apple Pascal are trademarks of the APPLE Computer Corp. IBM and IBM PC are trademarks of International Business 
Machines. UCSD Pascal is a trademark of the Regents of the University of California. Osborne is a trademark of Osborne Com- 
puter. EPSON is a trademark of EPSON America, Inc. C. Itoh is a trademark of C. Itoh Electronics. 
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An Introduction to Modula 2 
for Pascal Programmers 





about programming languages in the 

computer press, you have probably seen 
mention recently of ‘““Modula-2, the new 
language by Niklaus Wirth, the father of 
Pascal.’”? Articles have appeared that pit 
Modula-2 against Pascal and even against 
Ada! 

What exactly is Modula-2, and how 
much does it differ from Pascal? How dif- 
ficult would it be for an experienced 
Pascal programmer to learn Modula-2? 

We feel that a programmer familiar 
with Pascal should be able to pick up the 
basics of Modula-2 in an afternoon and be 
programming comfortably within a few 
days. To this end, we’ll briefly introduce 
Modula-2 from a Pascal programmer’s 
point of view, describing similarities and 
differences as we go. 

This will not be an introduction to the 
entire Modula-2 language. Parts of the 
language deal with direct access to the 
hardware and with concurrent program- 
ming. These are worth an article by them- 
selves. The definitive description of 
Modula-2 may be found in Niklaus Wirth’s 
Programming in Modula-2, 2nd edition 
(Springer-Verlag, 1983). 

One warning: The following assumes 
some familiarity with Pascal. In particular, 
we will refer to what is known as Standard 
Pascal or ISO Pascal, which is the language 
standardized by the International Stan- 
dards Organization (ISO), or the equi- 
valent language standardized in the United 
States as ANSI/IEEE770X3. 97-1983. 
Most, if not all, Pascal implementations 
provide (incompatible) features beyond 
this standard, but few fail to provide the 
features we will mention. 


f you’ve been following discussions 


The Origins of Pascal 


When you hear the phrase “‘structured 
programming,’ chances are good that 
you'll think of Pascal, although you might 
think of PL/I, C, or even ALGOL 60 or 
ALGOL 68. Pascal, designed by Niklaus 
Wirth, appeared in the literature in about 
1971. It traces its structure back to 


by Hugh McLarty 
and David W. Smith 


Hugh McLarty, Logitech, 165 University 
Avenue, Palo Alto, CA 94301. 


David W. Smith, Tolerant Systems, Inc. 
81 FE. Daggett Dr., San Jose, CA 95134. 


ALGOL 60, although Wirth worked on 
several languages between 1960 and 1971, 
including ALGOL-W, EULER, and PL360. 

Wirth was dissatisfied with ALGOL 68 
(the new improved ALGOL), at least 
partly because it was incomprehensible 
even to its designers and it did not admit 
of a simple, efficient implementation on 
typical computers. PL/I provided a similar 
lesson in the costs of large languages. Pas- 
cal on the other hand, was designed with 
simplicity and regularity as primary goals. 
It is characterized by features whose imple- 
mentation is well understood and efficient 
and whose interactions are known and 
manageable. It is also widely associated 
with the now famous (or infamous) term 
“strongly typed language,”’ although it was 
not the first language of this kind. 


The Origins of Modula-2 


The roots of Modula-2 are to be 
found in Pascal, Modula, and Mesa. Mod- 
ula (i.e., Modula-1) was an intermediate 
stage in the evolution to Modula-2. Mesa, 
a language developed at the Xerox Palo 
Alto Research Center (PARC), was used to 
program the Alto and Star computers. 

In 1976, Wirth spent a sabbatical year 
at Xerox PARC. He was impressed by 
Mesa and by the fact that an entire per- 
sonal computer environment (operating 
system, compilers, editors, etc.) could be 
developed using a single high-level lan- 
guage. He returned to the Eidgenoessische 
Technische Hochschule (ETH) in Switzer- 
land and designed the Lilith machine, a 
microcoded computer with a high-resolu- 
tion bitmap display similar to the Xerox 
Alto. The entire software environment of 
the Lilith was implemented in Modula-2. 

Like Pascal, Modula-2 is a relatively 
simple language. It contains a few simple 
logical control structures. It provides a 
number of data types, including enumera- 
tions, sets, and records, and it allows the 
programmer to define types. In contrast to 
standard Pascal, it includes a number of 
features that make it particularly well 
suited for implementing large software 
systems, concurrent (multiprocess or inter- 
rupt-driven) systems, and systems that 
require low-level access to the hardware. 

Unlike Pascal, the language Modula-2 
does not define a file data type or any I/O 
operations, such as Get, Put, Read, or 
Write. In a Modula-2 system, standard 
modules provide access to files and devices; 
these services may even be user-written. 
The book Programming in Modula-2 
defines several of these standard modules. 


This approach is familiar to C program- 
mers, who use astandard library to doI/O. 
Because of the great effect this has on 
Modula-2 program portability, several 
companies that sell Modula-2 implementa- 
tions are working together to ensure 
compatibility of both their language 
implementations and their libraries. 


Modula-2 and Modularity 


Many dialects of Pascal allow for what 
is called independent compilation. The 
parts of a program are compiled indepen- 
dently and then combined with a linker or 
binder. While full checking is done within 
each compiled unit, little or no checking is 
done between units. For example, the 
number and types of procedure param- 
eters are not checked in a call between 
units; in fact, it may be possible to use a 
variable in one unit as a procedure in 
another, usually with undesirable results! 

The Modula-2 language stipulates that 
a program may consist of compilation 
units (modules) that are separately but 
not independently compiled. A correct 
implementation of the language provides 
as much checking between two separately 
compiled modules as it provides within 
each module. A few Pascal implementa- 
tions (notably UCSD) also provide strong 
checking between compiled units. 

When a module needs to use objects 
provided by another module, such as 
types, constants, variables, or procedures, 
it imports them from the providing mod- 
ule, giving the name of the providing 
module and the names of the desired 
objects. Such a module is said to be a 
“client” of the providing module. 


Modules that provide objects for use 
by other modules are divided into a 
definition part and an implementation 
part. The definition part lists the objects 
that are provided by the module and 
gives enough information about them to 
allow the compiler to check their use. The 
implementation part gives the full story, 
including procedure bodies and other 
objects that are hidden within the module. 

One important thing to note is that 
many implementations are possible for a 
given definition part. The details of an 
implementation are not visible to other 
modules, so any implementation that pro- 
vides the objects described in the defini- 
tion part and operates in the “expected”’ 
way will do. 

This is called information hiding and 
it is a very powerful way of structuring 
systems. Some of its power comes from 
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the fact that most bugs, and much of what 
might be called software inertia, come 
from assumptions (i.e., information). A 
bug is the symptom of an incorrect 
assumption; inertia is the result of a widely 
embedded assumption that needs to be 
changed. Information hiding is simply the 
technique of localizing information; it 
operates on the theory that information 
the programmer does not have access to 
cannot be abused or embedded in the code. 
Modula-2 modules provide an excellent 
mechanism for doing this. 

For example, during development, 
simple but logically correct implementa- 
tions are used. As module interfaces be- 
come settled and the needs of the system 
become understood, more sophisticated 
implementations can be substituted. 
Altering or replacing an implementation 
part does not require that we understand 
how the rest of the system depends upon 
it, only that we understand how the rest 
of the system depends upon the objects 
in the definition part. If the definition 
part does not change, we have some con- 
fidence that no ripple effects will spread 
changes (and bugs) across the system. 

Consider a symbol table module, as 
used in a compiler to collect identifiers 
and their meanings. We can choose an 
interface and write it as a definition part 
then create a simple implementation part, 
perhaps using a linear list to store symbol 
entries. This is slow for more than a few 
symbols, but it is quick and easy to imple- 
ment. Later we can substitute an imple- 
mentation that uses a hash table or a 
binary tree, or one that swaps entries to 
disk when memory fills up, and so on. 
A well-conceived definition part will 
remain constant through all of this, and 
few if any changes to client modules will 
be necessary. 


From Pascal to Modula-2 


To begin our discussion of the dif- 
ferences between Modula-2 and Pascal, 
let’s consider the short programs in Fig- 
ures la and 1b (at right). The single- entity 
PROGRAM of Pascal is replaced by the 
MODULE of Modula-2. This module is an 
example of a program module. Other 
module types are discussed below. 

First, upper and lower case are distin- 
guished in Modula-2; in particular, key- 
words are all upper case. “‘WriteLn” is 
distinct from ‘‘writeln” and both are 
distinct from ““WRITELN.” 

The Modula-2 program imports two 
objects from the InOut module; in this 
case the objects are procedures. When this 
program is compiled, the definition part 
for InOut will be found and used to check 
the calls of those procedures within this 
client module. InOut is a standard mod- 
ule, described in the book Programming in 
Modula-2. 

This explicit import takes a little more 
effort to write but quickly tells the reader 


what objects are being imported and where 
they come from. The only identifiers that 
are implicitly imported are record fields 
and enumeration constants. 


Identifiers, Numbers, and Strings 


The Pascal Standard says that identi- 
fiers may be of any length and that all 
characters are significant. The original 
(Jensen and Wirth) definition only re- 
quired that the first eight characters be 
significant, and many systems still have a 
noticeable restriction, especially for iden- 


tifiers known between modules. The Mod- 
ula-2 definition does not say anything 
about identifier length, but it seems to 
be widely understood that identifiers are 
very long, i.e., 72 or 80 characters at a 
minimum. All characters are significant, 
and a too-long identifier is an error. We 
have already mentioned the new case 
distinctions. 

Real numbers are just slightly dif- 
ferent. No digits are required after the 
decimal point, but the decimal point is 
always required. For example: 


- PROGRAM TestProgram (OUTPUT); 


_ BEGIN 


- END. 


WriteLn(‘Hello, World’ : 


Figure 1a. 
A simple Pascal program 


MO DULE TestProgram; 


BEGIN 


FROM InOut IMPORT — WriteLn; 


_ WriteString(‘“Hello, World”); 


= Writeln 
_ END TestProgram. 


Figure 4b. 
The same program in Modula- 2 





TYPE | DIRECTIONS = SET OF i. down, left, sight) 
VAR barriers: DIRECTIONS; 


barriers : = DIRECTIONS {up, left} 


Figure 2. 
Modula-2 set expression 


RECORD x, y: REAL; 
CASE tag: Color OF 
ao 
, blue: b: 
green:  ¢ 
END: C CASE ‘) 
z 0 99, 
CASE BOOLEAN OF 
TRUE: 
| FALSE: = a: 
END ( CASE") 
END; (* RECORD *) 


INTEGER 
BITSET 


CARDINAL 








m,n: CARDINAL 
POINTER TO CHAR 


Figure 3. 
Modula-2 record expression 
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nn a, 


a. is OK in Modula-2 but not in 
Pascal. 


1E-3 is OK in Pascal but not in 
Modula-2. 
More importantly, Modula-2 provides syn- 
tax for hexadecimal and octal constants 
and for writing character constants using 
their octal ordinal values. Some examples: 


hexadecimal: OFFFFH 
octal: 0177564B 
character: 15C (ASCII CR) 


A character string in Modula-2 is a 
sequence of characters surrounded by 
either single or double quotation marks. 
A string delimited by single quotes may 
contain double quotes, and vice versa, but 
there is no way to have both in the same 
string. 

A string of length n (n > 1) has the 
type: 

ARRAY [0..n-1] OF CHAR 
Presently, a string of length 1 will have 


type CHAR. This causes some problems, 
since it is not compatible with any AR- 


RAY OF CHAR type. Wirth has agreed to 
relax the compatibility rules in this case, 
and this change should be in the next edi- 
tion of Programming in Modula-2. 


Types and Declarations 


One radical change from Pascal to 
Modula-2 is that Modula-2 allows any 
number of CONST, TYPE, VAR, and 
PROCEDURE sections, in any order; it is 
also legal to make forward references with- 
in statements (e.g., to types, constants, 
variables, and other procedures). There is 
no FORWARD construct in Modula-2. 


An important new scalar type, CAR- 
DINAL, takes on nonnegative integer 
values up to an implementation-defined 
maximum, usually called MaxCard. This is 
intended to allow use of the unsigned 
arithmetic that is available on many 
machines, and it is expected that MaxCard 
> MaxInt in many implementations. Many 
things that involve INTEGER in Pascal 
are done with CARDINAL in Modula-2. 

Enumerations are unchanged, but 
subrange types are now surrounded by [ 


dProcedure = | PROCEDURE (ch: CHAR): 
VAR | a incnend AR RAY CHAR C OF CommandProcedure; 


= _TimeToQuit: BOOLEAN; 


preter( ye 


uitCommand; _ 


(* geta character from key *) 
(* callcommand routine ~*) 


— 4, 
Modula 2 code cei: procedures 





and |]. 

Set types are unchanged, although set 
expressions are slightly different. A stan- 
dard set type, BITSET, is defined as 


TYPE BITSET = SET OF [0.. n-1] 


where n is the size, in bits, of a handy 
unit on the target computer - typically 
one or two words. (BITSET is part of the 
language, but there is no standard constant 
related to n!) As for set expressions, they 
can contain only constant elements and 
ranges and must be preceded by the name 
of a set type unless that type is BITSET 
(Figure 2, page 23). 

Records have a slightly different syn- 
tax and are allowed to have any number 
of variant parts in any position (Figure 
3, page 23). Modula-2 does not support 
*““packed”’ structures. 


Procedures 


There are two minor differences be- 
tween a Pascal procedure and a Modula-2 
procedure. The first is that an empty for- 
mal parameter list is allowed and, indeed, 
is required for a function procedure with 
no parameters. The second is that the 
name of the procedure must be repeated 
after the terminating END of the proce- 
dure body. 

However, a revolutionary change has 
occurred in the way procedures can be 
used: In addition to the procedure param- 
eters allowed in Pascal, Modula-2 allows 
variables and record fields of a procedure 
type. Such variables and fields can have a 
procedure assigned to them; the procedure 
can then be called by designating the 
variable or field, followed by an actual 
parameter list. We have suggested some of 
the possibilities of this change with the 
fragment of Modula-2 code in Figure 4 
(at left). 

In a related area, Modula-2 also ad- 
dresses some of the old (Level 0) Pascal 
problems with array parameters. In 
Modula-2, a procedure such as the one in 
Figure 5 (page 26) is possible. The ARRAY 
OF construction means that, when the 
procedure is called, an array of any size 
may be passed to this parameter. Within 
the procedure, the array has a lower bound 
of 0, and the built-in function HIGH 
returns the appropriate upper bound. 


Expressions 


In dealing with Modula-2 expressions, 
the Pascal programmer will find few sur- 
prises. The same basic set of operators is 
available in Modula-2, including the set 
operators, with the same priorities. 

The one surprise in store for ex- 
pression lovers is a pleasant one. Recall 
that the first operand of an AND or OR 
operator determines whether or not it is 
necessary to evaluate the second operand 
(i.e., if the first operand of an AND is 
false, the result is false, and the value of 
the second operand is unimportant). In 
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Mylstar Symbolic Debugger V1.1 


The plain and simple difference is that Mylstar’s 
symbolic Debugging Program speaks to your IBM 
PC in alanguage you both can understand, plain 
and simple. 

Employing the same command structure, it 
allows you to use symbol names, mathematical 
expressions, batch files, on-line help, multi- 
command macros and other time-saving entries. 


*Designed for |BM PC-DOS 1.1 with 128K RAM minimum 


MYLSTAR 
| ELECTRONICS 
4 INC. 


165 West Lake Street 
Northlake, Illinois 60164 
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Original IBM Debug Program 


It's the enhancement to the /BM Debug 
Program you've been looking for—because it fills in 
the gaps—shortening the frustrating debugging 
process by as much as 50%— leaving you more time 
to do the work you need to do and the work you want 
to do, plain and simple. 

Mylstar’s Symbolic Debugging Program has 
been programmer-tested for over a year at Mylstar 
Electronics, Inc., (formerly D. Gottlieb & Co.), 
designers of the video arcade game, Q*BERT™ 


Mylstar Electronics, Inc., 

165 W. Lake St., Northlake, IL 60164 

Please send me Mylstar’s Symbolic Debugging 
Program for use with the IBM PC computer. Enclosed 
is $125, plain and simple. 


Check Money Order 118 
NAME 
FIRM 
ADDRESS 
CITY STATE ZIP 


Illinois residents add 7% sales tax 
Allow 2-4 weeks for delivery 


Circle no. 43 on reader service card. 
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this case, not evaluating the second oper- 
and is called ‘“‘short circuiting’’ the expres- 
sion, and this is exactly what Pascal did 
not promise to do - but Modula-2 does. 
If you don’t see how important this 
is, consider the problem of searching a 
linked list for a record with a given key, 
where the key may not be present in the 
list. In Pascal, because it is not defined 
whether both operands of an AND are 
evaluated, we must write the loop very 
carefully to avoid accessing through a NIL 
pointer (Figure 6a, below). The corre- 
sponding loop in Modula-2 is more 
straightforward (Figure 6b, below). 


Statements 


One of the first things you are likely 
to notice when reading a Modula-2 pro- 
gram is the relative scarcity of the keyword 
BEGIN. Most statements in Modula-2 
include an explicit terminator (usually 
END) and act ona sequence of statements, 
instead of on a single statement as in Pas- 
cal (although the single Pascal statement 
is often a sequence of statements inside 
of a BEGIN/END pair). 

Modula-2 supports the same basic 
iteration and flow control structures as 
Pascal, with a few additions and one not- 
able exception: there is no GOTO in 
Modula-2. 


PROCEDURE. Upcasliian str: ARRAY OF CHAR); 


VAR i: CARDINAL; 
BEGIN 
FORi :=0TO HIGH (str) DO. 
str[i] := CAP(str[i]) 
END : 
END Upcase; — 
Figure | 5. 


As shown in Figure 7 (below), the 
WHILE/DO is now terminated with END, 
and the REPEAT/UNTIL is absolutely 
unchanged. (In some sense, it was the 
most Modula-like statement in Pascal.) 

To this set of iteration constructs, 
Modula-2 adds LOOP (Figure 8, below). 
Statements within a LOOP are executed 
until a RETURN or EXIT statement is 
encountered. The EXIT statement is only 
legal within the scope of a LOOP and 
terminates the nearest enclosing LOOP. 

The Pascal FOR statement survives in 
Modula-2 with a slight increase in power. 
The DOWNTO form is eliminated, and a 
BY clause is allowed, to specify the step 
on each iteration. The default step is 1, of 
course, and the FOR statement is term- 
inated with a matching END (Figure 9, 
below). 

As you might expect, the IF state- 
ment requires an explicit terminating END, 
which is a little tedious but eliminates 
the problem of matching an ELSE with 
the correct IF clause. (The Modula-2 
ELSIF construction provides some relief 
from the pain of IF-END nesting.) Figure 
10 (page 27) demonstrates how this can 
remove possible problems. | 


The CASE statement has undergone 
the most change. Most notably, an ELSE 
clause has been added to catch missing 


END 
REPEAT 


values. This, of course, is present in 
one form or another in many Pascal 
implementations. 

Case labels must still be constants, 
but ranges are allowed as well as single 
values. Also Modula-2 allows constant 
expressions where Pascal allows only a 
literal or constant identifier. The sequence 
of statements following a case label is 
separated from the next case label by a 
vertical bar (Figure 11, page 27). 


Modules 


The compilation unit in Modula-2 
is amodule. In general, as explained earlier, 
modules are split into two parts (a defini- 
tion part and an implementation part), 
which are compiled independently. The 
definition part defines the interface that 
the module presents to the outside world:. 
the ‘“‘what’’ of the module. The implemen- 
tation part (the “how’’) is intentionally 
hidden. To see how this works, consider a 
simple stack mechanism (Figure 12, 
page 27). 

In addition to push and pop (the 
primary stack operators), the stack module 
exports two variables, Overflow and 
Underflow, through which errors are 
signaled. A module may export proce- 
dures, constants, types, and variables. 

Note that the two variables declared 


WHILE (column < < 80) A AND. oe (column) = 0") D0 
Card{column] :=‘ ’; 
column := column + 1: 


p := p’. next; 


length := 
UNTIL p=NIL 


Array eemitng in | Moduta- Z 


found := FALSE © 


~ WHILE (p<> NIL) AND NOT four DO BEGIN 


IF pA. key = k THEN 
found := TRUE 
ELSE 
p := p’, next 
END; 


Figure Ga. 


Linear searching in Pascal 


WHILE (p <> NIL) AND (p’. key <> k) DO 


p := p4. next 
END: 


Figure 6b. 


The same fragment in Modula-2 


length + 1; 


Figure 7. 


The Modula-2 WHILE and Bocce. constructs 





ReadLine( ); 
iF eof EXIT; 
WriteLine( ); 


Figure 8. 


The Modula-2 LOOP construct 





FOR c:= 


END 


(Width - 1) TO Cursor BY -1 DO 
Line[c + 1] 


The Modula-2 FOR construct 













:= Line[c]; 


Figure 9. 
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in the definition part are not redeclared 
in the implementation part. This is because 
all constants, variables, and types declared 
in a definition part are known implicitly 
in the corresponding implementation part. 

The third item of interest is the code 
at the bottom of the implementation 
module, where the top level of a Pascal 
program would be found. This code is 
called the module body, and it can be 
used to initialize the module. It is executed 
after the bodies of any imported modules 
are executed. In case of circular reference, 
no order is defined. 

The main (top level) module of a 
Modula-2 program is simply a MODULE. 
It may (and most likely will) import defini- 
tions, but it does not export any. 

How does Modula-2 ensure that the 
correct implementation modules are used 
when the program is linked? Each time a 
definition part is compiled, it is assigned 
a timestamp. When any other module is 
compiled that refers to that particular 
interface, the timestamp is included in 


the compiled code. Both the implementa- 
tion of the interface and the clients of the 
interface receive these timestamps. 

When modules are linked together, 
all of the timestamps for each interface 
are compared; if they are not identical, 
then a warning is issued. This happens if 
two modules are compiled with different 
versions of some definition part, which 
means that there could be an inconsistency 
between the definitions of objects and 
their use. 

This section is not a comprehensive 
discussion of modules. We refer the inter- 
ested reader to the Modula Report (in 
the back of Programming in Modula-2), 
particularly for further discussion of mod- 
ules and low-level programming features. 
David L. Parnas has written several funda- 
mental papers on the subjects of informa- 
tion hiding and the use of modules in the 
design of software systems. Doug Cooper’s 
book, Standard Pascal - User Reference 
Manual, is a good reference for standard 
Pascal. 


Finis 

This is by no means the complete 
story on Modula-2. As we mentioned, 
we did not discuss certain provisions for 
concurrent programming and for low-level 
systems programming at all. We hope that 
the Pascal programmer who was curious 
about Modula-2 has had some questions 
answered and perhaps some new ones 
raised. 

We are particularly indebted to the 
DDJ reviewers whose sharp questions and 
knowledgeable comments made this article 
much better than it would have been. 


Hugh McLarty is manager of the Modula-2 
Software Engineering Group at Logi- 
tech, Inc. in Palo Alto. David Smith is 
presently with Tolerant Systems, Inc.., 
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tal > 2000. 0 THEN 
1 Total > 10000. 0 THEN 
/ - Total = = = Total + BigBonus 
_ ELSE _ 
oo Total : := Total + SmallBonus; 


Figure 10a. 


Incorrectly indented Pascal 


IF Total > 2000. 0 THEN 
IF Total > 10000. 0 THEN 
Total := Total + BigBonus 
ELSe 
_ Total := Total + SmailBonus 
| END 
END 


Figure 10b. 


The same rewritten in Modula-2 


_CASECH OF - 

SS Token := Blank 
oy 0. O. Token := Number 
3; ‘A..F’ ’a’..’z’: Token := Letter 

- Token := Letter 
ELSE Token := Unknown 
- END 


Figure 11. 
A Modula-2 CASE statement 





DEFINITION MODULE IntStack; 
EXPORT Push, Pop, Overflow, Underflow; 
VAR Overflow, Underflow : BOOLEAN; 
PROCEDURE Push (Item : INTEGER); 
PROCEDURE Pop ( : see 
END IntStack. 
IMPLEMENTATION MODULE iniSeack: 
CONST StackSize = 100; © , 
VAR Stk : ARRAY [1..STACKSIZE] OF INTEGER: 
Top: 10. .Si ACKSIZE| - 
PROCEDURE Push ee INTEGER); 
BEGIN 
IF Top= StackSize THEN 
Overflow := TR UE; 
ELSE 
Top := Top +1; 
Stk[Top] = Item; 
END 
END Push; 
PROCEDURE Pop( }: INTEGER, 
BEGIN 
IF Top =OTH EN 
Underflow := TRUE; 


RETURN OQ; 
ELSE i 
Top = Top - 1; 
RETURN Stk[Top + 1]; 
END Pop; 
BEGIN (* Initialize the stack *) 
Top :=0; 


Overflow := FALSE; 
Underflow := FALSE; 
END IntStack. 
Figure 12. 


Stack mechanism in Modula-2 
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Converting Fig-Forth to Forth-83 





to most modern computer languages. 

It evolved into its current form with- 
in a few years as the result of the work of 
one man (Charles Moore), was jealously 
guarded as a proprietary product for 
quite a few more years, and came into 
widespread use only after a group of vol- 
unteer systems programmers created a set 
of public domain implementations in 
1978. The same programmers founded 
the Forth Interest Group (FIG) shortly 
thereafter. . 

Flushed by the success of the FIG 
implementations, our heroes formed the 
Forth Standards Team. The team was 
charged with creating a clear specification 
for the Forth language that could be used 
as a reference by both users and systems 
vendors. Ignoring the old engineering 
adage, “If it works, don’t fix it,” they 
produced the document known as the 
Forth-79 Standard, which was widely 
criticized and then almost as widely 
ignored. 

Back to the drawing boards for the 
Forth Standards Team. Reconvening in 
late 1982, they began the traditionally 
grueling process of creating a new Stan- 
dard, which involves much _ lobbying, 
arguing, and infighting. In August 1983, 
they took a final vote and approved the 
Forth-83 Standard document. 

Even before Forth-83 hit the streets, 
it drew hostile comments from many 
vendors because it ignored or bypassed a 
number of important issues (such as read- 
ing device status and 32-bit implementa- 
tions), was exceedingly vague about 
vocabularies (considered a vital feature 
of the language), and actually redefined 
the action of certain keywords and con- 
trol structures that had been in common 
use for years — in essence creating a new 
language incompatible with all existing 
Forth programs. 

The reader may well ask how such a 
Standards document could be created and 
approved. The politics of Forth would 
make a fascinating subject for a sociol- 
ogist’s dissertation, but I’m not sure I 


E- orth has a colorful history compared 
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Ray Duncan, Laboratory Microsystems, 
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understand them well enough to explain 
them. For the purposes of this article, let 
us just note that both the board of direc- 
tors of FIG and the members of the 
Forth Standards Team are self-elected. 
Nearly all have been in office since the 
beginning of FIG, and their responsive- 
ness and accountability to the member- 
ship of FIG (let alone the general com- 
munity of Forth vendors and users) is 
minimal. 

With all of its peculiarities, the Forth- 
83 Standard seems likely to come into 
widespread use fairly quickly. The alter- 
native is to stick with Forth-79, which 
has major deficiencies, or with fig- FORTH 
(Forth-78), which has become very dated. 
Two of the largest Forth vendors (Labo- 
ratory Microsystems and Micromotion) 
have already committed to converting all 
of their systems to Forth-83 and have 
independently created two rather similar 
implementations. 

A third, public domain implementa- 
tion, known as F83 and written by 
Michael Perry and Henry Laxen, has also 
become available through certain user 
groups. It is a powerful system that in- 
cludes a full screen editor, assembler, and 
other programming tools. Unfortunately, 
F83 consists of a very large and confusing 
body of source code that incorporates 
many cute Forth programming “tricks” 
and shortcuts. I doubt that Forth beginners 
will find the F83 model comprehensible. 

The remainder of this article consists 
of a detailed guide to conversion of exist- 
ing fig-FORTH software to Forth-83. 
The instructions assume that the target 
system is a Laboratory Microsystems 
(LMI) or Micromotion implementation, 
though the instructions should be appli- 
cable for the most part to any Forth-83 
system. The material assumes an average 
level of Forth programming competence 
and is not directed to readers unfamiliar 
with the Forth language. 


Conversion Overview 


Due to the Forth Standard Team’s 
lack of concern for upward compatibility 
with the commonly available fig- FORTH, 
poly-FORTH,!™ or Forth-79 systems, it 
is quite likely that your programs will 
need some careful inspection and editing 
before they will execute properly on top 
of a Forth-83 Standard nucleus; we have 
provided a checklist of things to look for. 
Because this is not guaranteed to be in- 
clusive, refer to the 83-Standard docu- 





ment and the glossary section of your 
Forth System User Manual for more de- 
tailed information. In case of a conflict 
between the two, assume the 83-Standard 
document description to be correct. 


1. Due to the runtime requirements 
of the redefined LOOP, +LOOP, and 
LEAVE words, the return stack is main- 
tained in a different format than in pre- 
vious implementations. In LMI Forth 
systems, the LOOP or +LOOP construct 
requires three control words on _ the 
return stack. Programs that rely on spe- 
cialized knowledge of the return stack 
will require extensive changes and cannot, 
in any case, be considered “‘standard”’ or 
‘‘portable.”’ 


2. All ‘‘state smart”? words such as ’ (tick) 
and .” (dot-quote), which previously had 
different actions depending on whether 
they were invoked inside or outside a 
colon definition, have been either elimi- 
nated or redefined. 


3. The fig-FORTH words CFA, PFA, 
LFA, and NFA, which were used to find 
the addresses of different fields within a. 
dictionary header, have been eliminated. 
A new set of words, adopted from the 
Kim Harris experimental proposal, has 
been included in the new LMI and Micro- 
motion systems: 


BODY> LINK> 
>BODY >LINK 
NAME> N>LINK 
>NAME L>NAME 


Detailed explanations will come in a later 
section. At present, the only word of this 
set that is part of the 83-Standard is 
>BODY . 


4. For various reasons the definition of 
all divide functions (except for the un- 
signed divide) has been changed slightly. 
The general effect is that quotients are 
floored instead of rounded toward zero. 
This should cause no problems for most 
preexisting application software. The new 
divide functions are marginally slower 
than the old (a few machine cycles under 
most circumstances). The side effects of 
redefinition for floored divide can be 
counter-intuitive under some _ circum- 
stances. For example, in fig-FORTH the 
operation 


-40 360 MOD 


would return the obvious answer (-40) 


on the stack, while Forth-83 returns 
320! 
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5. The true flag returned by all logical 
operations has been changed from the 
value 1 to the value -1 (all bits set). If 
your code uses 0 or | returned by a com- 
parison in an arithmetic operation, you 
will need to interpolate the operator ABS 
after the logical operator. This is a par- 
ticularly difficult problem to look for in 
your source code. However, I feel that 
this mutation in the 83-Standard was 
beneficial as it allows the returned true/ 
false value to be used as a mask for AND. 


6. PICK and ROLL are now zero-based, 
instead of one-based. The reasoning 
behind this change uses the rather weak 
argument that programmers frequently 
use zero as the beginning index for loops. 


7. The word LEAVE has become an ‘“‘Im- 
mediate” compiler word with state- 
checking to satisfy the 83-Standard’s 
requirements. It, in turn, compiles the 
runtime word (LEAVE). If your previous 
code includes compiler extensions refer- 
encing LEAVE, it may need modifi- 
cation. 

In addition, the runtime action of 
LEAVE is immediate; that is, it causes 
a direct transfer of control past the end 
of the currently active innermost loop. 
Consequently, the new LEAVE is unstruc- 
tured, so that a loop increment may acci- 
dentally be passed outside the loop con- 
struct under certain circumstances. This 
problem is easier to demonstrate than 
explain; observe the following (admit- 
tedly contrived) example: 


: TEST 1000 0 DO 2 7TERMINAL 
IF LEAVE THEN +LOOP ; 


If 27TERMINAL returns a true flag, after 
exit from the DO...+LOOP construct, 
2 will remain on the stack in the Forth- 83 
system whereas it would have been dis- 
carded in fig- FORTH. 


8. Certain very commonly used Forth 
words were not included in the Standard 
and their eventual fate should be regarded 
as uncertain: they might be standardized 
with a different definition or abolished 
altogether. The list includes: 


S->D OUT ERROR 
?TERMINAL SCR ?ERROR 
CONTEXT DPL MESSAGE 
CURRENT HLD_ .LINE 
FENCE R# THRU 

DP e; --> 


Restrictions on an 83-Standard 
Forth Application Program 

Forth systems, whether complying 
with any Standard or not, typically con- 
tain many environmentally dependent 
words in addition to the Standard’s re- 
quired word set. In order for your appli- 
cation programs to be portable to any 
Standard Forth system, you should ob- 
serve the following rules (abridged from 
the Standard document). 
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ON A STRING! 


Serious programmers can 
use Optimizing C86 to 
control the IBM PC and 
MS-DOS computers. 
Features include 30% + 
more speed and: 






Use C86. 


eS 





e A Full and Standard implementation of the C 
language balancing tight control of the machine with 
productivity and portability. 


e Hardware and operating system interfaces for: 
graphics, interrupt control, 8087 use, |/O ports, real 
time applications and for producing ROMs. 


e Use of the standard MS-DOS Linker and a compiler 
option to produce MASM Assembler output. Helps in- 
tegrate with MASM, MS FORTRAN and PASCAL. 


e A rich set of libraries that includes source for K&R 
functions, extras for string handling, graphics, sorting, 
floating point (8087 and 8086/8088). “Large” model 
memory use (1,000K RAM), “Small” memory model, 
MS-DOS 1.1, 1.25, 2.0,2.+ +. 


eSupport for numerous add-on libraries including: 
HALO Graphics, C Tools for fundamentals in many 
areas, PHACT for ISAM and others. Ask for a list and 
for descriptions. 


Pull Charlie’s strings with our fast, complete, proven, 
reliable C Compiler—the leading compiler for serious 
programmers of MS-DOS and CPM-86 systems. Still 
only $395. Call for details. 


Computer Innovations 
980 Shrewsbury Avenue 
Suite J-506 

Tinton Falls, NJ 07724 


Visa MC 





C86 is a trademark of Computer Innovations, Inc. CPM-86 is a registered trademark of Digital Research. 
MS-DOS is a trademark of Microsoft. PC-DOS is a trademark of International Business Machines. 
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1. A Standard application may reference 
only the definitions of the 83- Standard 
Required Word Set and Standard Exten- 
sions and any definitions that are subse- 
quently defined in terms of those words. 


2. A Standard program may operate only 
on data that was stored by the applica- 
tion. The initial contents of variables and 
arrays created at compilation time are 
explicitly undefined. 


3. A Standard program may address: 


Parameter fields of words created 
with CREATE, VARIABLE, and user- 
defined words that execute CREATE 

Dictionary space ALLOTted 

Data in a valid mass storage buffer 

Data area of user variables 

Text Input Buffer (TIB) and PAD up 
to amount specified as the minimum for 
each area 


4. A Standard program may not address: 


Directly into the data or return 
stacks 

Into a definition’s name, link, or 
code fields 

Into a definition’s parameter field if 
its contents were not stored by the 
application 

Although the capability of doing 
these types of operations is probably 
present in the system you are using (SP@, 
RP@, >NAME, etc.), the operations 
should be avoided if you intend to port 
your program to 83-Standard systems 
provided by different vendors. 


Program Conversion to Forth-83 


This checklist is not foolproof, but 
it can save you a lot of time just getting 
your programs to the point where they 
will compile (proper execution, of course, 
is another problem). Most of the changes 
indicated are related to adoption of the 
Forth-83 Standard; other renamings are 
not properly part of the Standard but 
have been adopted in the Laboratory 
Microsystems, Micromotion, or public 
domain Laxen/Perry models. 


1. Search for all instances of R; replace 
with R@. 


2. Search for all instances of -DUP; 
replace with ?7DUP. 


3. Search for all instances of WORD. 
When it occurs as WORD HERE, delete 
the HERE. When WORD is not followed 
by HERE, replace it with WORD DROP. 


4. Search for all instances of PICK and 
ROLL; replace them by 1- PICK and 
1- ROLL, respectively. 


5. Examine all DO...LOOPs. For any 
loop that might be entered with the limit 
equal to the index, replace DO with ?DO. 


6. Search for all instances of LEAVE. 
Note that the action of LEAVE will be 
immediate. If it occurs within an IF... 


ELSE ...THEN clause, LEAVE should 
be the last word before the ELSE or 
THEN. If LEAVE is used within a 
DO...+LOOP construct, make sure that 
the incrementing value will not remain on 
the stack if LEAVE is executed. 


7. Search for all instances of ’ (tick) 
within a colon definition. If it is not pre- 
ceded by [COMPILE], replace it with 
we 

8. Search for all instances of .” (dot- 
quote) outside of a colon definition; re- 
place the .” with .( and the closing de- 
limiter ” with ) to prevent compilation 
failures. 


9. Search for all instances of NFA, 
PFA, LFA, and CFA. It is best to exam- 
ine these and recode them individually, 
but you can make some “brute force” 
substitutions as follows: 3 


This: Becomes: 

} ’ >BODY (outside 
colon definition) 

"CFA ” (outside colon 
definition) 

‘CFA [’] (inside colon 
definition) 

NFA BODY> >NAME 

"NFA ’ >NAME 

LFA BODY> >LINK 

“LFA ’ >LINK 

PFA NAME> >BODY 

PFACFA NAME> 


Bear in mind that the old definitions had 
the following actions: 


CFA ( pfa --- cfa ) 
NFA ( pfa --- nfa ) 
LFA ( pfa --- lfa ) 
PFA ( nfa --- pfa ) 


These were predicated on the fact that 
" returned the parameter field address. 
Since ’ and [’] now return the code field 
address, the new words suggested by Kim 
Harris revolve around that value: 


>BODY ( cfa --- pfa ) 
>LINK ( cfa --- lfa ) 
>NAME ( cfa --- nfa ) 
BODY> ( pfa --- cfa ) 
LINK> ( lfa --- cfa ) 
NAME> ( nfa --- cfa ) 


These are appealing and symmetric, but 
before you get too carried away with 
them remember that a Standard program 
can’t access any part of a dictionary def- 
inition except for the parameter field 
(“body’’). Two additional words are pro- 
vided for convenience in traversing the 
linked dictionary list: 

N>LINK ( nfa --- lfa ) 

L>NAME § (lfa--- nfa) 


10. Search for all instances of ENDIF 
and replace with THEN. 


11. Search for all instances of MINUS or 
DMINUS and replace with NEGATE or 
DNEGATE, respectively. 


12. Search for all instances of SIGN and 
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fix up stack logic. Usually SIGN can be 
replaced by ROT SIGN. 


13. Any use of -FIND must be recoded 
individually. You can usually replace it 
with the sequence BL WORD FIND. 


14. Search for all instances of ? and re- 
place with @.. 


15. Search for all instances of BLANKS ; 
replace with BLANK. 


16. Use of old CREATE words in your 
programs must be modified. In most 
instances on LMI implementations, you 
can replace it with the new word BUILD. 
The Forth-83 word CREATE has a much 
different effect. 


17. Search for all instances of the con- 
struct <BUILDS ... DOES> and replace 
with CREATE... DOES>. 


18. Search for all instances of END and 
replace with UNTIL. 


19. Search for allinstances of (NUMBER) 
and replace with CONVERT. 


20. Search for all instances of IN and re- 
place with >IN ._ 


21. Search for all instances of FLUSH 
and replace with SAVE-BUFFERS. 


22. Search for all instances of U* and re- 
place with UM*; similarly, replace all 
occurrences of U/ with UM/MOD. 


23. Replace all instances of S->D with 
S>D. 


24. Replace the word SP! with the se- 
quence SO @ SP!, and change the word 
RP! to RO @ RP!. 


25. Search for all instances of TIB @ and 
replace with TIB. Recode any sequences 
of TIB! in an implementation-dependent 
manner. 


26. Difficult to find by inspection but 
very dangerous is the use of the Boolean 
flag returned by a comparison in a calcu- 
lation, such as the sequence 0= ADD. 
These must be recoded individually. 


27. Also difficult to find is the use of 
specialized knowledge of the return stack 
(such as fetching the index of the third 
outer loop). These must be individually 
examined and recoded. 


28. Search for all VARIABLE declara- 
tions and delete leading initializing value 
(these do no harm but will be left as 
residual data on the stack at the end of 
compilation). Although most implemen- 
tations do set the initial value of a vari- 
able to zero or -1, a Standard application 
program is, of course, not allowed to take 
advantage of this information. It is most 
correct to initialize variables at runtime 
(so that the code is reusable); however, 
your old fig-FORTH compile-time ini- 
tialization of variables can easily be 
mimicked. For example, the fig- FORTH 
statement 
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4 VARIABLE XVAR 
would be changed to 
VARIABLE XVAR 4 XVAR! 


29. Search for all instances of +- and 
D+-; replace them with 7NEGATE and 
?DNEGATE,, respectively. 


30. Examine occurrences of MOD. If 
either argument can take on a negative 
value, the results may surprise you. 


31. Find all M/MOD and replace with 
MU/MOD. Search for all instances of 
M/ ; replace with M/MOD. 
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#TIB A new 83-Standard user variable -<CMOVE 
containing the length in bytes ofthe | dard Forth. 
valid input stream within the ter- >BODY Converts code field addres to para 
minal input buffer. This isnot the | | etor Geld address: 
length of the buffer itself. #TIB is set — | 
by QUERY after calling EXPECT. =| >LINK _ Converts code field address to link 
ae a: - ee _ field address. Not 83-Standard. | 
‘Tick’”’ isno longer “immediate” and | —__ _ . 
returns the CFA of the target name | >NAME Converts code field address to name 
instead of the PFA as in previous ver- | field address. Not et ee oe a - 
sions. Outside a colon definition, | ? Deleted. _ 
, reeled aie sabes pi _ 2DNEGATE _ New name for D+- as suggested 
~ definition it should be replaced by & ___Laxen. Not 83-Standard. 
). ?D0 — Works like DO except executes zero 
. | NDEX LIMIT 
(FIND) Deleted. To perform the function of _ decd 0s ee 4 » ark d : 
he old (FIND), use the new word we eo gges a 
_ nee hi i BS Sinden _ Laxen/Harris/Perry. Not |- Stan: 
which is ae dard, but present in LMI ane Micro 
_+LOOP Termination has been redefined to motion systems. | 
occur when the INDEX crosses the °DUP Sa 
?7DU me as old -DUP. 
boundary between LIMIT-1 and | | e2 
LIMIT. This is implemented in LMI | ?NEGATE New name for +- as suggested ”y 
Forth by adjusting LIMIT to 8000H Laxen. Not 83-Standard. / 
and checking for a machine overflow | ABORT” A new word that requires a flag ‘on 
flag after incrementing the INDEX. | ‘top of stack; it does nothing if th 
This +LOOP is faster than in the pre- _ flag is false and prints a string and 
vious version but behaves somewhat — executes ABORT if the flag is true. — 
differently. For example: _ Used like 7ERROR but with no re- — 
11D0...1+LO0OP quirement for a disk access. | 
will execute 65,536 times (in fig- _ AGAIN — Still present in LMI Forth systems — 
FORTH or Forth-79, it would have | with function unchanged, but no 
executed only once) while “present in the 83-Standard or ever 
110D0...-1+LOOP in the Controlled Reference Wor 
will execute once. See also LOOP. Set. Probably fated for extinction 
|. so its use should be avoided in new 
_ ? | 
; discon to 7NEGATE as suggested | oe code. Can be replaced by 0 UNTIL. 
: ORIGIN: Deleted. oe - Renamed from BLANKS. S ee below 
: BLANKS _ Renamed to. BLANK (not an & 
- ; ? |? 
- -DUP_ : a tek |. - Standard word, but included in 
: “FIND _ Essentially replaced by the 83-Stan- | Controlled Reference Wor Set). 
_ — a word sequence BL WORD ~ BoD > Converts parsmeter d address to. 
. | , code field address. Works like the old _ 
2 “Dot- quote” now may be used in- word CFA. Not 83- Standard. | 
- : : ee colon definitions only. TF | CFA ~ Removed. See BODY>, N NAME>. 
1 : |. and LINK>. 
A New word. Immediate. The charac- | angry, 
fore Ge blk hot including whe) CMOVE> Previously known as <CMOVE. : 
delimiting ) are displayed on the CONVERT Essentially works like the old fee 
standard output device (usually the FORTH word (NUMBER). Caution: 
operator’s console). May be used in- converts positive double ‘numbers - 
side or outside of a colon definition. only. Sign handling must be co _ 
«NAME Performs the function of the old ID. . eabduce 
| CREATE Redefined from fig- FORTH. Now 
<BUILDS Replaced by CREATE, which has used with DOES> in the same man 
— some slightly different effects. ner as the old <BUILDS. / / 
- (Continued on pace ee . 
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SOFTWARE DESCRIPTIONS 


TPM (TPM 1) - $80 A Z80 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk |/0, abbreviated 
commands and more! Available for North Star (either single or 
oe density), TRS—80 Model | (offset 4200H) or Il, Versafloppy 
|, or Tarbell |. 


TPM-Il - $125 An expanded version of TPM whichis fully CP/M 
2.2 compatible but still retains the extra features our Customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side on an 8" disk. Availa- 
ble preconfigured for Versafloppy II (8" or 5”), Epson QXx-10, 
Osborne II or TRS-80 Model II. 


CONFIGURATOR | 
This package provides all the necessary programs for 
Customizing TPM for a floppy controller which we do 
not support. We suggest ordering this on single den- 
sity (8SD). 

Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE). MACRO II ($100). LINKER ($80), DEBUG | ($80). 
QED ($150), ZEDIT ($50), TOP | ($80). BASIC | ($50) and 


BASIC II ($100) NOW $250 


$815 Value 


CONFIGURATOR II 
Includes: TPM-II ($125), Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). MACRO III ($150), LINKER 
($80), DEBUG | ($80), DEBUG I! ($100), QSAL ($200), QED 
($150), ZTEL ($80), TOP Il ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 
($80) 
$1485 Value NOW $400 
MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note: 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80). BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80), ZDDT ($40). ZTEL 
($80), TOP | ($80) and MODEM (S40) 

NOW $175 











































$680 Value 


MODEL |i PROGRAMMER 
This package is only for the TRS-80 Model Il. 
It includes: TPM-li ($125), BUSINESS BASIC ($200). 
MACRO II ($100), MACRO Ill ($150). LINKER ($80). 
DEBUG | ($80), DEBUG 1! ($100), QED ($150), ZTEL ($80), 
TOP Ii ($100), ZDDT ($40). ZAPPLE SOURCE ($80). 
MODEM ($40). MODEM SOURCE ($40) and DISAS- 


SEMBLER ($80) NOW $375 


$1445 Value 
BASIC I - $50, a 12K+ basic interpreter with 7 digit precision. 
BASIC II - $100. A 12 digit precision version of Basic |. 


BUSINESS BASIC - $200. A full disk extended basic with 
random or sequential disk file handling and 12 digit precision 
(even for TRIG functions). Also includes PRIVACY command to 
protect source code, fixed and variable record lengths, simultane- 
ous access to multiple disk files, global editing, and more! 


ACCOUNTING PACKAGE - $300. Written in Business 
Basic. Includes General Ledger. Accounts Receivable/Payable. 
and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 
tions needed for other terminals. Provided in unprotected source 
form. 


MACRO | - $80. A Z80/8080 assembler which uses CDL/TDL 
mnemonics. Handles MACROs and generates relocateable code. 
includes 14 conditionals, 16 listing controls. 54 pseudo-ops. 11 
arithmetic /logical ops, local and global symbols. linkable module 
generation, and more! 


MACRO Il - $100. An improved version of Macro | with 
expanded linking capabilities and more listing options. Also inter- 
nal code has been greatly improved for faster more reliable 
operation. 


MACRO III -$150. An enchanced version of Macro ll. Internal 
buffers have been increased to achieve a significant improvement 
in speed of assembly. Additional features include line numbers. 
cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops. internal setting of time and date. and 
expanded assembly-time data entry. 
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DEVELOPER | 
Includes: MACRO | ($80). DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC II ($100) 

$440 Value NOW 


DEVELOPER II 
Includes: MACRO I! ($100), MACRO Il! ($150), LINKER 
($80), DEBUG | ($80), DEBUG I! ($100), BUSINESS BASIC 
($200), QED ($150), TOP 1! ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 
DISASSEMBLER ($80). 

NOW $350 


$1280 Value 











DEVELOPER Ill 
Includes: QSAL ($200). QED ($150), BUSINESS BASIC 


($200), ZTEL ($80) and TOP II ($100) 
$730 Value 


COMBO 
Includes: DEVELOPER 1! ($1280). ACCOUNTING PACK- 
AGE ($300), QSAL ($200) and 6502X ($150) 

NOW $500 


LINKER - $80. A linking loader for handling the linkable 
modules created by the above assemblers. 


DEBUG | - $80. A tool! for debugging Z80 or 8080 code. 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers. Traces code even through ROM. Commands include 
Calculate. Display. Examine. Fill. Goto. List. Mode. Open File, Put, 
Set Wait. Trace. and Search. 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display, Trace 
options. and Zap FCB. 


6502X - $150. A 6502 cross assembler. Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as our Macro assemblers. 


QSAL - $200. A SUPER FAST Z80 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like structures: repeat...until. if...then...else. 
while...do. begin...end. case...of. Multiple statements per line. 
special register handling expressions. long symbol names, auto 
and modular assembly. and more! This one uses ZILOG Mnemonics. 


QED - $150. A screen editor which is both FAST and easy to 
learn. Commands include block delete. copy. and move to a 
named file or within text. repeat previous command, change. 
locate, find at start of line. and numerous cursor and window 
movement functions. Works with any CRT having clear screen, 
no oat cursor, clear to end of line, clear to end of screen, and 
0X24. 






NOW $300 


$1930 Value 





ZTEL - $80. An extensive text editing language and editor 
modelled after DEC's TECO. 


ZEDIT - $50. A mini text editor. Character /line oriented. Works 
well with hardcopy terminals and is easy to use. Includes macro 
command capability. 


TOP I - $80. A Text Output Processor for formatting manuals. 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number, head- 
ing. subheading. centering. and more. 


TOP II - $100. A superset of TOP |. Adds: embedded control 
characters in the file. page at a time printing. selected portion 
printing. include/merge files. form feed/CRLF option for paging. 
instant start up. and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your own custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM. Acommunication program for file transfer between 
systems or using a system as a terminal. Based on the user group 
version but modified to work with our SMB board or TRS-80 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - $40. For making your own custom 
version. Requires one of our Macro Assembiers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB II Bare Board $50. “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face, 4K memory (ROM, 2708 EPROM, 2114 RAM), and power 
on jump. When used with Zapple ROM below, it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB I/II hardware, pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595, Add 280 capability to your 
IBM Personal Computer. Runs CP/M programs but does not 
require CP/M or TPM. Complete with 280 CPU, 64K add on 
memory, serial port, parallel port, time and date clock with 
battery backup, hard disk interface, and software to attach to 
PC DOS and transfer programs. Mfr'd by QCS. 

50% Discount on all CDL software ordered at the same time as 
a Big Blue (and for the Big Blue). 

APPLE I — Chairman 280 $345, Add Z80 capability to your 
Apple II/Il Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/DOS as well as 
the Z80), TPM, QSAL assembler, QED Screen Editor, and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple 280 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE 280 DEVELOPER 
Includes: 6502X ($150), MACRO II ($100), MACRO III 
($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG! 
($80), DEBUG II ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) : 
NOW $325 


VALUE: $1250 
$175 when purchased with AMT “Chairman” Board 













ORDERING INFORMATION: 


DISK FORMATS 







When ordering software specify which disk format you would like. VISA/MasterCard/C.0.D. : 
CODE DESCRIPTION : : . 
8SD 8" IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) Call st Write With Ordering 
8DD 8" Double Density (256 bytes/26 sectors/77 tracks) Information.... es 


8XD 8” CDL Extended Density (1024 bytes/8 sectur/77 traceks = 616K) OEMS 
5SD _ 5.25” Single Density (TRS80 Model |, Versafloppy |, Tarbell |) : a 
5EP 5.25” Epson Double Density Many CDL products are available for 
5PC —«5.25" IBM PC Double Density licensing to OEM's. Write to Carl 


OXE 5.25” Xerox 820 Single Density ee , 
SOS. -'. Sas" Oshorite-Sirigle Density Galletti with your requirements. 
Dealer Inquiries Invited. 


5ZA 5.25" Z80 Apple (Softcard compatible) 


TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 
CODE DESCRIPTION 


TPM |: NSSD/H_ =North Star Single Density for Horizon 1/0 
NSSD/Z ~North Star Singte Density for Zapple 1/0 
NSDD/H North Star Double Density for Horizon !/0 For Phone Orders ONLY Call Toll Free... 
NSOD/Z North Star Double Density for Zapple 1/0 1 800 458 349] (Except Pa.) 
TRS80-1 TRS-80 Model | (4200H Offset) e? e 
ee ee ee Ask For Extension #15 
vi8 Versafloppy | 8" 
vis Versafloppy | 5.25" For information and Tech Queries call 
TPM-li:  Vil8 Versafloppy II 8" (XD) 


(609) 599-2146 


VIS Versafloppy 11 5.25" 
TRS80I1 = TRS-80 Model II (XD) 


Prices and Specifications subject to change without notice. 
TPM. Z80. CP/M. TRS80 are trademarks of CDL. Zilog, DRI and Tandy respectively. 





OO :_ Om 





Computer Design Labs 





342 Columbus Avenue/Trenton, NJ 08629 == 


Circle no. 11 on reader service card. 
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D+- 


DIGIT 


DMINUS 
DNEGATE 


DOES> 


EMPTY -BUFFERS 


END 
ENDIF 
EXPECT 


FIND 


FLUSH 


L>NAME 
LINK> 


LITERAL 


LOAD 
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Renamed to ?DNEGATE as sug- 
gested by Laxen. 


Returns a true flag of -1 instead of 1 


as in previous version. This is not an 


83- Standard word. 


Renamed to DNEGATE in 83- 
Standard systems. 


83-Standard word, previously called 
DMINUS. : 


Functionally similar to before, but 
implementation is considerably dif- 
ferent and involves a mixture of ma- 
chine code and high-level code in the 
defining word’s parameter field. 


Marks all disk block buffers as unas- 
signed. Does not write blocks marked 
for UPDATE to the disk. Not an 83- 
Standard word but still present in 
LMI Forth systems. See also SAVE- 
BUFFERS and FLUSH. 


Removed. Use UNTIL. 
Removed. Use THEN. 


Works about the same but leaves the 
actual length of the input in the sys- 
tem variable SPAN. 


New word that essentially provides 
the capabilities of the old -FIND and 
“state -smart tick.” 


Writes all UPDATEd blocks to disk 
then unassigns all block buffers. See 
also EMPTY-BUFFERS, SAVE- 
BUFFERS. | 


Renamed to .NAME. Not 83-Stan- 
dard. 


Renamed to >IN. 


Causes an immediate transfer of con- 
trol to the code just beyond the next 
LOOP word. For example, in the 
code: 
DO ...IF XXX ELSE LEAVE 
YYY THEN LOOP 


if the ELSE path is taken, the word © 


YYY will never be executed (unlike 
fig- FORTH or Forth- 79). 


Converts link field address to name 
field address. Not 83- Standard. 


Converts link field address to code 
field address. Not 83- Standard. 
Compilation only. The actual run- 
time word compiled may depend on 
the magnitude of the literal value. 


Loading from screen O is now de- 
fined to be illegal. 


LOOP 


M* 


M/ 


MINUS 


MOVE 


N>LINK 


NAME> 


NEGATE 


NFA 
NOT 
PAD 


PICK 


R@ 


ROLL 


RP! 


Termination has been redefined to 
occur when the INDEX crosses the 
boundary between LIMIT-1 and 
LIMIT. This is implemented in LMI 
Forth by adjusting LIMIT to 8000H 
and checking for a machine overflow 
flag after incrementing the INDEX. 
This LOOP is faster than in the pre- 
vious version but behaves somewhat 
differently. For example: 

11D0...LOOP : 
will execute 65,536 times (in fig- 
FORTH or Forth-79, it would have 
executed only once). 


No longer present in 83-Standard or 
Controlled Reference Word Set. Still 


present in LMI Forth systems, but 


use should probably be avoided. 


Renamed to M/MOD. This is dif- 
ferent than the M/MOD that was 
present in fig- FORTH (which func- 
tion is now carried out by MU/MOD 
in some implementations). 


Renamed to NEGATE in 83-Stan- 
dard systems. | 


This word is listed in the Uncon- 


trolled Reference Word Set of the 
83-Standard with a different action 
than was common in fig-FORTH. 
Avoid it. 


Converts name field address to link 
field address. Not 83- Standard. 


Converts name field address to code 
field address. Not 83- Standard. 


83- Standard word, previously named 
MINUS. 


Removed. See >NAME . 
Returns 1’s complement. 


Now provides a work area of at least 
84 bytes. 


The argument to PICK is now zero- 
based (was previously one- based). 
Examples: 0 PICK is equivalent to 
DUP and 1 PICK is equivalent to 
OVER. 


New name for fig- FORTH R. 


Renamed to R@ in 83- Standard. 


The argument to ROLL is now zero- 
based, instead of one-based. Exam- 
ples: OQ ROLL is a null operation, 
1 ROLL is equivalent to SWAP, 
2 ROLL is equivalent to ROT, etc. 


Takes its argument from the top of 
the data stack rather than RO. A 
change suggested by Laxen/Perry for 
symmetry with RP@. The word RP! 
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$->D 


SAVE-BUFFERS 


SIGN 


SP! 


SPAN 


STATE 


TIB 


U* 
U/ 









in your previous code should be re- 
placed with the sequence RO @ RP!. 
Not 83- Standard. 


Renamed to S$>D as suggested by 
Laxen. Not 83- Standard. 


All buffers marked as UPDATEd are 
written to the disk but remain as- 
signed. See also EMPTY-BUFFERS 
and FLUSH. 


Definition changed: takes its argu- 
ment from the top of stack rather 
than the third item on the stack. The 
word SIGN in your old code can be 
replaced by ROT SIGN. 


Takes its argument from the top of 
stack rather than SO. A change sug- 
gested by Laxen/Harris/Perry for 
symmetry with SP@. The word SP! 
in your previous code should be re- 
placed with SO @ SP!. Not 83-Stan- 
dard. 


A new system variable that contains 
the length of the last input via 
EXPECT. 


System variable. In LMI Forth sys- 
tems, the value of STATE is -1 if 
compiling, 0 otherwise. An 83-Stan- 
dard application shouldn’t modify 
this variable. 


Definition changed. Formerly  re- 
turned the address of the location 
containing the address of the ter- 
minal input buffer. Now returns the 
actua! address of the buffer. In your 
existing code, replace all sequences 
TIB @ by the word TIB alone. 


Renamed to UM*. 
Renamed to UM/MOD. 


HY TT SE 








an 9 

_@88a 

anaes asae- ‘ss ght 
TT AL PL la 

as 


UM* 
UM/MOD 
VARIABLE 
VLIST 


VOCABULARY 


vocs 


WIDTH 


WORD 


WORDS 


ease S <2cS3 IEE 488 10 $-100 INTERFACE 





New name for u*. 
New name for U/. 
Does not accept an initializing value. 


Renamed to WORDS (suggestion of 
Laxen). 


The 83-Standard, in an atten! to 





remedy the 79-Standard’s restrictive- _ 


ness on vocabulary structures, left 


most details to the imagination of 


the Forth implementor. A radically 


different experimental proposal was | 
offered by Bill Ragsdale and printed — 
as an appendix to the Standards 
document, but this proposal was not 


approved as part of the Standard 
proper and has not been adopted by 
all Forth vendors at this point. 
Beware! 


(LMI i ouciank Displays the 
current search order and the names 
of all declared vocabularies in the 
system. Not 83-Standard. | 

No longer present in LMI implemen- 
tations. The full name bes to 31 
characters) is always used. 


Defined slightly ‘changed con fie: 
FORTH. Returns; the address of the 


_ first byte. of the token it scanned off 


the input stream. A token may be up 


to 255 bytes i in length. 


Displays the names of the definitions 
in the vocabulary that is first in the 
current search order. Similar to old 
VLIST command. Not 83- Standard. 


["] | Used inside a colon definition to 
compile the CFA of the following 
word, like the old “state-smart tick” 
word. See also’ and FIND. — 


(End Table) 


®Handles all IEEE-488 1975/78 functions 
®iEEE 696 (S-100) compatible 
® (MBASIC subroutines suppliers: no BIOS 
mods required 

arallel ports (8255A-5) 
mind strial quality; burned in and tested 
"$375 {Dealer in i 

quiries invited] 


DSW DIGITAL 
20655 Hathaway Ave. 


Hayward, CA 94541 415] 887-5711 





Circle no. 24 on reader service card. 
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Sixth Generation Computers 





Dr. Dobb’s periodically prints material de- 
signed to provoke thought on topics which look 
toward the future. In December 1982, we pub- 
lished an essay by Richard Grigonis entitled 
“Fifth -Generation Computers,’ which sketched 
a picture of microcomputer technology in the 
1990s. Michael Doherty challenged his predic- 
tions (Open Forum, March 1983), requesting 
more substantial discussion. Grigonis’ lengthy 
response in the August 1983 DDJ discussed 
topics ranging from silicon theory to sociology. 
Now Grigonis has provided us with more food 
for thought. Doherty, having seen an advance 
copy of the piece, has already written a reply, 
which we will publish next month. — Editor 


Ag he favorable response to my last 
article, ‘‘And Still More Fifth Gen- 
eration Computers” (DDJ No. 82), 
has encouraged me to write another article 
on future hardware that picks up where 
the last one left off, taking speculation 
about future computers to the limits that 
can be conceived of by the human mind. 
So, without further ado, let us complete 
our journey into the future.... 


Physical Limitations 


All artificial intelligence programs 
must represent knowledge and the logical 
connections between such knowledge, the 
total possible combinations of these being 
the search space or all possible final states 
or solutions. A tree structure is usually the 
most convenient way of describing the 
possible final states, with each successor 
node representing a possible state that can 
be derived from the initial state via the 
appropriate operators. 

The search for a desired goal, such as 
the best move in a chess game, thus con- 
sists of searching each successor node of 
the tree (graph) to discover a node with a 
state description satisfying the goal; the 
path to that node is the appropriate oper- 
ator sequence that yields the best final 
state. 

Blind search or “‘exhaustive search” 
algorithms (such as the breadth-first 





by Richard Grigonis 





Richard Grigonis, Children’s Television 
Workshop, One Lincoln Plaza, New York, 
NY 10023. 


All drawings by Doug Kirby 


search) never fail to uncover the best solu- 
tion since they examine every node or 
possible state. Unfortunately, many prob- 
lems have a search space that is either in- 
finite (such as logic) or else so large (such 
as chess) that the computational cost 
makes such exhaustive searches impossible. 
The fact that one must examine all se- 
quences of n moves immediately implies a 
search space where the number of nodes 
grows exponentially with n, so if at each 
move the player has K choices, then n 
moves comprise K® possible move se- 
quences. The possible final states grow 
exponentially with n and so result in a 
combinatorial explosion that overflows 
the computer’s memory and requires eons 
of processing time. The algorithm for 
playing a perfect game of chess is not be- 
yond the capabilities of a theoretical 
universal Turing machine, but it is cer- 
tainly beyond its physical embodiment, 
the digital computer. 


Developing artificial intelligence thus 
became a matter of devising short-cuts, 
or forms of heuristic search, so that infor- 
mation about the nature of the problem 
domain allows the program to “‘prune the 
search tree’? and run more efficiently. 
Some of these heuristic searches include 
the Minimax and Alpha-Beta pruning 
procedures. Still, the danger with pruning 
the search tree via short-cuts (heuristics) 
is that, while some of these heuristics do 
guarantee success by improving efficiency, 
others do not even guarantee a solution at 
all! This is particularly troublesome when 
one is dealing with yes-no questions, as 
opposed to those questions requiring a 
value (with a tolerable margin of error) as 
an answer. The greater the number of 
heuristics, the more like a human being the 
program will behave, and the greater the 
chance that the program will miss the best 
solution. Human beings use heuristics a 
good deal more than they do precise algo- 
rithmic techniques, and the certainty of 
their decisions suffers accordingly. Only 
an exhaustive search of the available possi- 
bilities can give a perfect solution, but the 
computational cost of performing these 
searches is tremendous. 

Therefore, many mathematical, logi- 
cal, and artificial intelligence problems 
can never be solved because the computa- 
tional requirements of algorithms that per- 
form better than the heuristic capabilities 
of humans exceed the ability of any 
existing or projected computer. Even an 
optical computer utilizing matrix pro- 
cessing techniques will probably never ex- 


ceed 1.5 trillion operations per second; 
this signal flow falls far short of even Hans 
J. Bremermann’s relatively small theoret- 
ical limit of 1.35 x 10*7 bits per second 
per gram of system weight. Searching 
through a search space requires compu- 
tations, and computations require time 
and energy. Since computational devices 
are bound by both limits here in the 
physical world, as Bremermann says, “‘the 
accessible portion of the mathematical 
universe is limited.”’ 


Or is it? Memory is not the problem it 
used to be. The new Cray and Fujitsu 
supercomputers can each be equipped with 
256 megabytes of internal memory, and 
the Japanese Fifth Generation computer 
will have 1000 megabytes or about a bil- 
lion bytes (gigabyte) of memory. Some- 
time in the first half of the next century, 
supercomputers will have at their disposal 
about 64 gigabytes of memory. It is the 
processing time required for a solution to 
many of these algorithms that seems to be 
the real problem. In the case of chess alone, 
with over 10!29 moves (I think Shannon’s 
estimate of this is wrong, as the real 
figure probably exceeds 10159 moves), 
a huge number of computation- years are 
required to exhaustively search the pos- 
sible moves. 


The two solutions to this problem 
have been either to develop distributed 
array processing (reducing a problem to its 
components and having a different pro- 
cessor work on éach part of the problem) 
or to simply build faster processors with 
smaller or newer non-von Neumann arch- 
itectures. Neither of these ideas has turned 
out to be quite as successful as was initially 
thought. After all, even if every atom in 
our galaxy were replaced with.a Cray-1 
supercomputer, it would still take cen- 
turies to search through all the possible 
chess move sequences! Data flow devices 
have not demonstrated very many advan- 
tages over conventional computers (indeed 
it is impossible for them to implement 
simple loops or recursion), and faster and 
faster processors designed along the von 
Neumann architecture (even ignoring the 
problems posed by the so-called “von 
Neumann bottleneck’’) must be con- 
structed smaller and smaller until they 
literally disappear. 


We must conclude then that even the 
much-touted Japanese fifth generation 
computer is doomed to fail in the artificial 
intelligence and predicate logic theorem 
resolution tasks envisioned by its sponsors. 
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Superluminal Processors? 

A novel solution,, which everyone 
seems to have missed, is to devise a pro- 
cessor whose signals are not bound by the 
speed barrier imposed by the special 
theory of relativity — in other words, to 
build a computer where the processor 
signals can travel faster than light. This 
sounds impossible, but in fact we may 
achieve this in three ways: 

(1) Tachyons : 

(2) The application of the Einstein- 

Podolsky-Rosen (EPR) effect 
(3) The so-called ‘‘advanced po- 
tentials’? solution of the moving 
charge equations derived from 
Maxwell’s electromagnetic theory 


Let us now examine each of these 
three possibilities in detail and see what we 
can come up with. 


Tachyons 


Although ordinary particles with 
finite, real rest masses and energies can- 
not travel faster than electromagnetic 
radiation with respect to any frame of 
reference, particles having imaginary 
quantities of energy and momentum can 
indeed travel faster than light. These hypo- 
thetical particles were named tachyons, 
from the Greek tachys, meaning “‘swift.”’ 


In 1962 three American physicists 
QO. Bilanuik, V. Deshpande, and E. C. G. 
Sudarshan at the University of Rochester 
mathematically demonstrated that tach- 
yons could have real energy and momen- 
tum if the particles possessed an imaginary 
rest mass instead of a real one. The value 
for the rest mass is imaginary in that it is 
the square root of a negative number. 

But another problem was related to 
the faster-than-light (or ‘“‘superluminal’’) 
velocities of such hypothetical particles. 
Since anything traveling faster than light 
should, from our frame of reference, 
travel backwards in time as well, an ob- 
server watching a tachyon being exchanged 
between two atoms (say, between atom A 
and B) would see a tachyon particle of 
negative energy absorbed by atom B 
before it is emitted by A. Two things are 
wrong here. First, particles of negative 
energy are not allowed; second, the 
tachyon violates causality by traveling 
faster than light and so appears to reach 
atom B before it is emitted by atom A! 

These theoretical obstacles to 
the existence of tachyons were eliminated 
by Columbia University physicist Gerald 
Feinberg and the ‘‘reinterpretation prin- 
ciple’’ he devised in 1967. An observer in 
the correct frame of reference (a high rel- 
ativistic velocity) would not see a negative- 
energy tachyon being absorbed by atom 


TACHYON ACCELERATING TO INFINITE VELOCITY BY 
RADIATING AWAY ELECTRIC CHARGE AS A CERENKOV LIGHT 


CONE. 


TACHYON WITH 
ELECTRIC CHARGE 


PHOTON CONE WITH 90 
DEGREE OPENING 
PRODUCED BY A 
CHARGE TRAVELING 
FASTER THAN THE 
SPEED OF LIGHT. 
(‘‘photonic boom’’) 


nine 


Figure 1. 


B before it is emitted by A. Since emitting 
a negative amount of energy is equivalent 
to absorbing a positive amount, the 
observer instead would see atom B emit a 
positive-energy tachyon, which is then 
absorbed hy atom A. The problems of 
both negative energy and time-reversal 
vanish. 

Because they have an imaginary rest 
mass, as tachyons lose energy they speed 
up instead of slowing down! Tachyons 
therefore would be difficult to control. 
Whereas an ordinary particle is stationary 
when at rest and requires the application 
of an infinite amount of vector forces 
(energy) to attain the speed of light, a 
tachyon is subject to the opposite prin- 
ciple: it travels at infinite velocity when at 
rest, and subjecting it to an infinite 
amount of propulsive force would merely 
slow it down to the speed of light! 


The speed of light, then, is a “‘barrier”’ 
between our universe and the universe of 
tachyons. Interestingly, the time-axis of 
the tachyons’ world lines (as described by 
a classical Minkowski space-time diagram) 
is perpendicular to the time-axis of the 
particles in our own universe, so that once 
an observer arrives in a tachyon universe, 
the tachyons would appear to behave like 
normal particles — but the particles in our 
universe, by comparison, would now ap- 
pear to be tachyons! That, of course, is 
definitely another story. 


In any case, for atachyonic computer 
to function, it is necessary for the tachyon 
signals to interact with ordinary matter at 
some point — namely, by triggering the 
processor’s binary switches. 


If we assume that a tachyon can carry 
an electrical charge, we can create tach- 
yons by bombarding atoms with high- 
energy photons in the form of, say, gamma 
rays. This then liberates pairs of tachyons, 
the resulting particles having equal and 
opposite charges. This electrical charge on 
the tachyon, because it is traveling at 
superluminal speed, emits a special form 
of electromagnetic radiation called Ceren- 
kov radiation. This type of radiation, first 
fully described by the Russian physicist 
Pavel A. Cerenkov in 1937, is the cone- 
shaped shock wave of photons emitted by 
a particle traveling faster than light in a 
medium (not a vacuum, obviously, since 
ordinary particles do not travel faster than 
light); it is sort of a light version of the 
“sonic boom.”’ (Cerenkov radiation, when 
generated by particles whirring around in 
a cyclotron, looks bluish white, but, 
strangely enough, a prism does not sepa- 
rate this light into a spectrum.) A tachyon 
accelerates to infinite velocity within a 
distance of only 0.001 centimeter, as the 
particle quickly divests itself of its electri- 
cal charge by liberating a Cerenkov radia- 
tion cone with a 90-degree opening. 

A distance of 0.001 centimeter is too 
small for the construction of a super- 
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luminal processor switch, but a solution 
exists. The tachyons can be “refreshed,” 
or given an electrical charge again, by 
placing an electric field in their trajectory. 
Once recharged in this way, the tachyons 
again divest themselves of their newly ac- 
quired energy via Cerenkov radiation, 
which can now be detected by a photo- 
multiplier tube. 

Therefore, each switch of a tachyonic 
computer would consist of a powerful 
electromagnetic source to generate the 
tachyons and an electrical field/photo- 
multiplier tube combination to detect 
tachyonic signals coming from other 
switches. Since we have no way of trans- 
mitting tachyons in a particular direction, 
all of the switches would have to broad- 
cast and receive signals only at certain 
timed intervals — in a sort of packet- 
switching arrangement. 


Another problem is that an experi- 
ment by T. Alvager and M. N. Kriesler at 
Princeton in 1968, using a gamma ray 
source (radioactive cesium) and an electric 
field/light detector apparatus, did not 
detect the transmission of any tachyons! 
However, if high-energy tachyons merely 
decay into several faster and more stable 
tachyons, this would have accounted for 
the Princeton experimental results. 


If tachyons are passed from one atom 
nucleus to another in straight lines, then 
disturbing one end of an object would 
cause a tachyonic pulse to pop out of the 
other end instantly. We may have here the 
solution to the directional transmission 
problem. Perhaps future computers will be 
partly mechanical, with the switches 
disturbing in some way the ends of rods, 
each rod composed ofa highly compressed 
substance like metallic hydrogen (al- 
though, come to think ofit, any substance 
will turn into a metal if subjected to suf- 
ficient pressure); the computer would 
transmit faster-than-light tachyonic pulses 
through a network of these rods. 


Ironically, in the 1940s and 1950s, 
certain parts of computer processors ran 
so quickly in comparison to the rest of the 
equipment that the signals had to be 
slowed down at certain points by con- 
verting the signals from electrical pulses 
moving through wires tc waves moving 
through troughs filled with a liquid. The 
Americans used mercury for this purpose, 
while Alan Turing thought that gin had 
the right density. 


The EPR Effect 


Einstein never liked the indetermin- 
istic, probabilistic view of the world 
posited by quantum mechanics. Einstein’s 
own theories of relativity — the other half 
of modern physics — are actually the last 
of the great classical theories; their equa- 
tions specify that space, time, and mass are 
a precise, calculable function of velocity, 
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and that the effect of being at rest in a 
gravitational field is the equivalent to 
being at rest in an accelerated coordinate 
system. Quantum physics, on the other 
hand, is dominated by two things that 
disturbed Einstein: the Schrodinger wave 
equation and the Heisenberg uncertainty 
principle. 

To illustrate these two bizarre items, 
we reintroduce an old high school physics 
experiment. Most of us may remember 
that in 1803 Thomas Young demonstrated 
the wave nature of light by directing sun- 
light through a card or metal plate with 
two vertical slits in it. The diffracted light, 
when projected upon a wall or screen, 
yields an interference pattern with alter- 
nating bands of light and darkness, the 
brightest band at the center. With only one 
slit open, however, diffraction still takes 
place, but the light forms a single fuzzy 
vertical patch on the screen, corresponding 
to the single slit through which it has just 
passed. 

Since not only photons but all sub- 
atomic particles have a wave aspect as well 
as a particle aspect, we can run the double 
slit experiment again, this time using 
electrons. Instead of an ordinary screen, 
however, we need one coated with a 
phosphor to make the electron impacts 
visible as tiny flashes of light (turning the 
apparatus into a sort of CRT); a cloud 
chamber would also suffice. 

When a single photon is diffracted 
through one slit, we cannot determine 
exactly where on the screen the particle 
will land. According to the Heisenberg un- 
certainty principle, we can know either the 
momentum of a particle with accuracy or 
the particle’s position with accuracy, but 
we can never determine both values with 
high accuracy! Since we know the mo- 
mentum of a photon (traveling at light 
velocity), we therefore cannot determine 
its position — until it hits the screen. 


The Schrodinger Wave Equation 


But if we cannot determine the 
photon’s precise position until it hits the 
screen, then can we at least determine the 
chances of it hitting any particular area of 
the screen? Yes. This is where the Schro- 
dinger wave equation comes into play, 
which is simply a partial differential equa- 
tion that allows one to compute, given the 
initial state of a system, all of the probable 
final states of the system. In our case, this 
would be all of the possible positions on 
the screen the photon could hit at any 
particular time. Instead of regarding the 
present state of the universe as being deter- 
mined by the past and in turn determining 
the future (the classical view), the Schro- 
dinger wave equation gives us a ‘“‘wave 
function’? of many possible future and 
past states. Thus, the future state of a 
physical system (until the particle finally 
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hits) is a superposition of all possible out- 
comes. 

An infinite number of states of 
varying probability can represent pos- 
sible solutions to the Schrodinger wave 
equation for any physical system, de- 
pending upon the measurement. Each state 
is a solution to the wave equation and a 
possible future state (possible impact 
point). So, the particle can be anywhere in 
the cosmos before it is observed by its 
impact! After all, the photon or electron 
may have missed the screen entirely and 
is now far away, but this is a small prob- 
ability. It is important to note that the 
system is not in one of these states, but 
it is probabilistically in all of the states 
until the measurement occurs; the repre- 
sentation of the ‘‘ensemble” of states is 
known as the state vector, or the “‘sta- 
tistical ensemble’’ of states. 


ment” with two of his colleagues, Boris 


Podolsky and Nathan Rosen, in 1935. 
Unfortunately for Einstein, this particular 
“thought experiment” ultimately back- 
fired, proving him wrong and quantum 
mechanics right. The idea is now known 
as the EPR (for Einstein, Podolsky, and 
Rosen) effect, oi the EPR paradox. 

There are many ways of illustrating 
the paradox. For example, let’s bump 
two electrons together and create a two- 
particle system of zero spin, which means 
that the spin of one electron always can- 
cels out the spin of the other. For the 
moment we will not measure the electrons 
to determine which way they are spinning. 
Next, let us separate the electrons by 
several light years, leaving one of them in 
our laboratory. After doing this we meas- 
ure the spin of ‘‘our’’ electron, thus col- 
lapsing the state vector. Theoretically, the 


other electron doesn’t exist until we 
measure it too. But we already know that 
both electrons make up a single two- 
particle system of zero spin, and the total 
spin is always going to be zero. So, even 
though the other electron is light years 
away, we already know what the value of 
its spin is by measuring the spin of the 
electron here on earth! The situation be- 
comes even more bizarre when we remem- 
ber that the other electron’s spin is always 
going to be opposite to the spin of the one 
in the lab, so if we could alter the spin of 
the electron here on earth we would also 
instantaneously change the spin of the 
faraway particle! 


Kind of scary, eh? Well, it’s only scary 
if an experiment demonstrates it to be 
true. Einstein’s argument was that sucha 
thing would never happen, because a light 
signal could not travel fast enough to con- 


So imagine an electron or photon 
diffracted through a single slit, and 
imagine its wave function spread out over 
a huge area that includes the screen. What 
is so irritating about all this is that, for all 
practical purposes and indeed for all pur- 
poses, the “‘particle’’ does not exist as such 
until it is measured by an observer. At 
the moment of measurement — which is 
the moment when the particle hits the 
screen — all of the possible states dis- 
appear, the system undergoes a discon- 
tinuous change, and we find the system to 
be in one particular state, one given by the 
position on the screen of the particle’s 
impact. The act of measurement is thus 
said to ‘“‘collapse’’ the state vector onto 
one of the possible states given by the 
Schrodinger wave equation. This is also 
called the ‘‘reduction of the wave packet.”’ 
Strangely, the particular state (position 
on the screen) the system settles on is 
determined only by pure chance. 

So, although the particle is prob- 
abilistically “everywhere” (to the point 
where if both slits are open it can appear 
to pass through both slits simultaneously 
and interfere with itself like a wave), it 
is also ‘“‘nowhere”’ in that it doesn’t exist 
until we measure it! What is even more 
disturbing is that, since the wave function 
covers a huge area that only includes 
the screen, we suddenly realize that the 
collapse of the state vector occurs instan- 
taneously, or much faster than the maxi- 
mum speed (light velocity) allowed for 
by the special theory of relativity! Things 
like this used to drive Einstein right up the 
wall, leading him to say at one point that 
“God does not play dice with the universe.” 
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nect the two particles. Einstein reasoned 
that quantum theory must be incomplete 
because it allows such faster-than-light 
(superluminal) connections between two 
particles, a phenomenon that must be 
impossible, violating as it does Einstein’s 
own special theory of relativity. 


Einstein believed in the principle of 
local causes — what we measure or do to 
one electron’s spin here on earth (let us 
call it position S,;) cannot possibly affect 
the other electron’s spin in deep space 
(let us call it position $2) unless we allow 
sufficient time for some kind of signal 
traveling at the speed of light to reach it 
and impart the information to the particle. 
As Einstein wrote: ‘“‘One can escape from 
this conclusion [of the incompleteness 
of quantum mechanics] only by either 
assuming that the measurement of S, 
‘telepathically’ changes the real situation 
of Sz, or by denying independent real 
situations as such to things which are 
spatially separated from each other. Both 
alternatives appear to me entirely un- 
acceptable.”’ 


Amazingly, Einstein and his col- 
leagues were proved wrong! There are no 
local causes. 


BOTH SLITS OPEN 


Bell’s Theorem 


In 1964, a physicist named J. S. Bell 
at the European Organization for Nuclear 
Research (CERN) in Switzerland devel- 
oped a mathematical proof that was subse- 
quently strengthened by others and is now 
known as Bell’s Theorem. With it, Bell 
theoretically demolished the principle of 
local causes. In 1969, J. F. Clauser, M. A. 
Horner, Abner Shimony, and R. A. Holt 
showed how physical experiments could 
be performed to test for faster-than- 
light (or “‘superluminal’’) connections or 
‘correlations’ between particles. The first 
of these tests was made in 1972 by Clauser 
with S. J. Freedman. 

The scientists electrically excited neon 
atoms so that, when the atoms’ electrons 
fell back to a lower, more stable energy 
state, they emitted pairs of photons 
moving in opposite directions. The wave 


-motion of photons can be plane polarized 


(vertical or horizontal) or circularly 
polarized (clockwise or counterclockwise), 
so that the plane of the wave displacement 
rotates as they move through space. Since 
these photons have a common origin, they 
can be considered as a two-particle system. 
If one of the two photons is vertically 
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polarized, the other one is also vertically 
polarized. If one photon is horizontally 
polarized, then so is the other one. There- 
fore, if we measure the polarization state 
of one photon, we also know the value of 
the polarization state of the other photon, 
even though we have not measured it and 
it is far enough away so that the ‘“‘infor- 
mation’’ must be traveling faster than light. 


The Clauser-Freedman experiment 
did just that by placing polarized filters 
on either side of the light source. Photons 
passing through these polarizers then 
encountered photomultiplier tubes. When 
both polarizers were vertically oriented, 
the vertically vibrating photons passed 
through and set off both photomultipliers 
simultaneously. When one of the polar- 
izers was rotated at 90 degrees to the 
other, however, one set of photons was 
stopped and the photomultipliers did 
not fire together. 


Another way of generating pairs of 
photons is to bring an electron and a 
positron (antimatter electron) into con- 
tact, causing their annihilation. In the 
case of photons produced by matter- 
antimatter annihilation, quantum mech- 
anics predicts that the two photons will 
have opposite polarization. In this case, 
then, the photomultipliers will fire to- 
gether only if both polarizing sheets are 
set 90 degrees to each other. And it works 
again! 


The most recent experiment along 
these lines (the eighth since 1972, I be- 
lieve) was performed by Alain Aspect, 
Philippe Grangier, and Gerard Roger at 
the University of Paris. These experiments 
seem to prove once and for all that there 
are no local causes. This implies that a 
system can never be described in isolation, 
since all of the particles of matter in the 
universe interacted with each other long 
ago during the Big Bang and must there- 
fore be ‘“‘correlated’’ or connected. 


Transmission Problems 


Does all of this mean that we can 
build optical computers that operate 
faster than the speed of light? By changing 
an individual electron’s spin or a photon’s 
polarization, it would be quite simple to 
transmit messages faster than light. Quan- 
tum mechanics, however, discourages 
manipulating individual particles once 
they are measured; this violates the essen- 
tial indeterminism upon which quantum 
theory is based. Nevertheless, while it is 
true that an individual photon’s polariza- 
tion cannot be altered once it is measured, 
it is also true that we decide what we are 
going to be looking for in the first place. 
Although quantum mechanics forbids in- 
dividual particles to be causally tampered 
with, we could manipulate the variable 
values of a Statistically large number of 
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remote locations we wish. What imme- 
diately comes to mind is separating and 
altering the spin of a stream of electrons 
with Stern-Gerlach devices, as suggested 
by Gary Zukav. 


Other Superluminal Phenomena 


Actually, we have already encountered 
many kinds of faster-than-light phe- 
nomena in the double-slit experiment. 
First, by simply measuring the system, we 
have seen the wave function instantly 
collapse at faster than the speed of light. 
However, another strange phenomenon 
occurs that the average high school stu- 
dent misses when working with the 
apparatus. The moment an observer covers 
up one of the slits, preventing one set of 
photons or electrons from passing through 
it, the interference pattern consisting of 
light and dark bands disappears and is 
replaced by the single fuzzy band indica- 
tive of photons or electrons diffracted 
through a single slit. Now, at the moment 
that the observer covers up the slit, how 
do the other particles that are passing 
through the other slit ‘““know”’ that there 
is now only one slit and that it is now 
permissible to go into what would have 
been the dark bands on the screen were 
both slits open, thus giving us the single 
fuzzy band characteristic of a single slit? 


The problem is accentuated further 
when we fire one photon or electron at a 
time through the slits, slowly generating 
the single fuzzy band or the interference 
pattern on the screen, depending upon 
whether one or two slits are open. In this 
case the photon or electron not only 
knows what the other particles are doing, 
but it also knows what the physical con- 
figuration of the apparatus is! How does a 
single particle know if one or two slits are 
open? 


Indeed, things become even more 
disturbing when one realizes that, since the 
spacing between the light and dark bands 
on the screen is determined by the dis- 
tance between the slits, the particle’s 
behavior also depends upon how far it was 
from a slit it didn’t go through! Does the 
particle actually (because of its prob- 
abilistic wavelike properties) ““divide”’ into 
two parts and ‘“‘wave’’ through the two 
slits, interfering with itself? 


To find out, let’s run the experiment 
again with electrons, but this time try to 
outwit each particle and pin down exactly 
which slit (or slits) it goes through by 
building a particle detector. This is done 
by placing a loop of wire around each slit. 
A particle in motion carrying an electrical 
charge (the electron) generates a magnetic 
field; when these lines of force cut through 
the loop of wire (through a photon ex- 
change between electron and wire), it 
generates an electrical pulse as the particle 
passes through the slit. We can record this 
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pulse. By firing one electron at a time at 
the apparatus, we find that each time an 
electron hits the phosphor-coated screen, 
only one particle detector will register — 
never both. By measuring the electron at 
the slit we have eliminated its probabilistic 
location in space and have collapsed the 
state vector to a particular position, which 
is the particular slit it has passed through. 
But there is more! With both slits open in 
this experiment, the interference pattern 
of multiple bands has vanished. Instead 
we find a pattern of two vertical fuzzy 
bands, side by side, each one resembling 
the pattern produced by a single slit. 

What happened? Consider the uncer- 
tainty principle. By measuring the position 
of the electron immediately (at the slit), 
we force the particle to interact with the 
apparatus by sending a photon (the ex- 
change particle of electromagnetism) to 
the loop of wire. But when a photon inter- 
acts with an electron, its momentum (mass 
times velocity, Planck’s constant divided 
by the wavelength) changes by an un- 
Known amount. This is the essence of the 
uncertainty principle and the price we pay 
for knowing the electron’s position. Even 
worse, the value for the momentum of 
each electron is totally different from that 
of any other electron, as their positions are 
detected in turn. 
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Because we have destroyed the elec- 
tron’s probabilistic location in space by 
measuring it at a particular position (one 
slit or the other), the electron no longer 
behaves as a wave and so cannot ‘‘wave”’ 
through both slits. Instead it behaves more 
like a particle, the interference pattern of 
many light and dark bands disappears, and 
we see the patterns of two “‘single”’ slits 
side-by-side on the screen. When we do 
not know which slit each electron passes 
through, the interference pattern re- 
appears! Sneaky particles, eh? 

Interestingly, if we use an “unreliable” 
detector, one that merely tells us that 
there is a probability of, say, 0.7 that an 
electron went through a particular slit, we 
will find that the interference pattern only 
partly disappears — the multiple bands are 
made a bit fuzzy — and upon this is super- 
imposed, also a bit fuzzy, the two-single- 
slit pattern! 


Backward Causation? 


One could resolve all of these strange 
phenomena (and eliminate the idea of an 
actual signal traveling faster than light) by 
assuming that the “‘direction of causality”’ 
might be violated when we measure some- 
thing. In other words, instead of regarding 
the initial state of the system as deter- 
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mining the outcome of measurements 
made on it, we might regard the outcome 
of the measurements as determining the 
initial state! 

As long ago as 1947, Costa de Beaure- 
gard thought that the quantum informa- 
tion about electronspin or photon polariza- 
tion (of the EPR paradox) travels back- 
ward in time from the measured particle to 
the event that produced the two particles, 
then forward in time to the other particle. 
The’ information thus appears at the 
second particle just as we measure it at 
the first particle! 

More recently, John A. Wheeler, the 
brilliant physicist who coined the term 
“black hole’? some years ago, has devised 
a thought experiment (called the ‘‘delayed- 
choice, double-slit experiment’’) that sug- 
gests that quantum mechanics seems to 
allow — indeed to demand — that back- 
ward causation is real. Essentially, it con- 
sists of the same version of the experiment 
that used the “‘electron detector,” except 
this time we are working with photons. 
A timed photon goes through the plate 
with the two slits. Beyond the two slits are 
two different types of optical measuring 
equipment. 

One piece of equipment can measure 
the photon as a wave. It doesn’t determine 
which slit the photon goes through, there- 
by allowing the photon to move prob- 


abilistically as a wave through both slits 
and to interfere with itself; this ‘“‘causes”’ 
the photon to strike only those areas of 
the screen corresponding to the bright 
bands of the interference pattern (areas 
of constructive interference), thus trig- 
gering this wave detector. The other device 
can measure the photon as a particle, by 
detecting through which slit the photon 
passes. 

Nothing appears new in this experi- 
ment thus far; it just sounds like the 
previous experiment with the electrons 
and the loops of wire. But before con- 
tinuing, it should be noted that, although 
photons (and other particles) appear to 
have the properties of both particles and 
waves, they never display both properties 
simultaneously. When we are measuring 
position, we find a particle, and when we 
are measuring momentum, we find a wave. 
We cannot measure for both properties at 
the same time. 

Now, says Wheeler, because we can’t 
use both pieces of detection equipment 
together, we have to decide whether we 
want to measure the photon as a wave or 
as a particle. But according to quantum 
mechanics, says Wheeler, we can decide 
whether the photon is a particle (goes 
through one slit) or a wave (probabil- 
istically travels through both slits) after the 
photon has already gone through the plate 
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having the slits! Particles are correlated in 
space and time. Not only do our measure- 
ments reach across space faster than light 
and ‘‘determine”’ the state of particles 
that we have not yet measured, but they 
can reach backwards in time to ‘“‘justify”’ 
the present results! As Wheeler has said, 
**..a choice in the present can alter in 
an irretrievable way what we are entitled 
to say about the past.” 


Advanced Potentials 


Our discussion of superluminal phe- 
nomena signalling backwards in time 
should actually come as no surprise; 
nothing in relativity theory, quantum 
mechanics, electrodynamics, or mechanics 
says that time must move in one direction. 
Still, we humans seem to perceive “‘time’s 
arrow’ in certain ‘‘obviously irreversible”’ 
processes, such as wave motion asym- 
metry: an electromagnetic wave (such as 
a radio wave) expands from the transmit- 
ting source into infinity, never to return. 
This typical electromagnetic phenomenon 
is mathematically described in a solution 
to the moving charge equations (derived 
from James Clerk Maxwell’s well-known 
electromagnetic field equations) as (t + r/v), 
where t is time, r is the distance of the 
field from a moving charge, and v is the 
phase velocity. This is known as the 
retarded potential solution. The resultant 
type of wave motion is called retarded 
wave motion, since the electromagnetic 
fluctuation can be detected at a point in 
space distant from the origin after a period 
of time. 

But as is the case with homogeneous 
differential equations (like the one P.A.M. 
Dirac discovered that defined the existence 
of both electrons and their time-reversed 
counterparts, positrons), there is another 
solution to the field equation: (t -r/v). 
This is known as the advanced potential 
solution, resulting in advanced wave 
motion. Whereas retarded wave motion is 
when a wave travels from the origin out- 
ward to infinity, advanced wave motion 
is when a wave travels from infinity and 
collapses into the origin. This implies 
that reverse causality is real and that the 
wave can be detected at a remote location 
before it has been generated at the source! 


Strangely, although this runs counter 
to common sense, Maxwell’s equations and 
the laws of propagation do not favor ordi- 
nary retarded potential solutions over 
the more bizarre, time-reversed, advanced 
potential solutions. Indeed, N. Anderson, 
in his book The Electromagnetic Field 
(New York: Plenum, 1968), writes that, 
“Advanced potentials are now receiving a 
great deal of attention since they seem to 
be a means of avoiding some of the dif- 
ficulties which beset electromagnetic 
theory. Advanced potentials were first 
Invoked to try to solve the problem of 
obtaining an equation of motion for an 


electron moving in an electromagnetic 
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field, which would take into consideration 
the radiation reaction, which is the force 
which acts on an electron due to its own 
electromagnetic field. Attempts using re- 
tarded potentials only are unsuccessful...” 

Normally, the advanced solution is 
discarded, simply because no one has ever 
observed various parts of the distant 
universe ‘‘conspiring’ to transmit in- 
coming waves to radio and TV transmit- 
ters here on earth. But why doesn’t this 
phenomenon occur? After all, it is known 
that various parts of the universe could 
be correlated in such a manner, since quan- 
tum mechanics and the EPR paradox state 
that all particles in the universe do some- 
how possess superluminal connections. 

The best explanation centers on the 
fact that the universe is expanding rather 
than contracting or remaining stationary, 
so the electromagnetic radiation emanated 
by distant points of the universe is so 
red-shifted that it never reaches us. The 
expanding universe would even explain 
why time appears to travel in one direc- 
tion: sources of energy can only be trans- 
mitters, never absorbers. Thus the ap- 
parent time asymmetry of the second law 
of thermodynamics and the “‘irreversible 
processes” that we observe associated 
with it are also explained. Systems can 
never return to their initial energy states 
(let alone higher energy states) because 
the universe is expanding and, as entropy 
increases, energy must be “‘diluted”’ more 
and more. An open container of liquid 
will evaporate away, never to return, and 
waves are only detectable when radiating 
from their sources since they never reach 
the other end of the universe — it keeps 
on expanding! 


Man-Machine Communication 


This should all be rather exciting to 
those who might one day build a com- 
puter based upon oddities in quantum 
theory and/or electrodynamics, allowing 
it to transcend the physical world in terms 
of processing speed. The “practical” 
barrier of about 1.5 trillion operations per 
second will be broken, but such super- 
luminal computers will cause users ad- 
ditional problems. 

For example, with so many signals 
spending a portion of their existence 
traveling faster than light, the large number 
of “negative cycles’ of the processor clock 
that are necessary for the solution of in- 
creasingly difficult problems will result in 
the final answers appearing on the CRT 
screen or printer farther and farther back 
in time. At some point answers will begin 
appearing before the user has had a chance 
to key the question in! 

To illustrate, let’s say I wanted to ask 
a natural language processing AI program 
the question, “What prime number is 
closest to a trillion?” If I sat down ata 
terminal and keyed in this question, the 
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answer would appear on the screen just 
before I sat down. A little disconcerting, 
but tolerable. Note that even though I 
already have the answer I (or somebody 
else) must at some point key in the ques- 
tion; otherwise, the question is never 
given to the processor and I will not have 
the answer! Sounds paradoxical, doesn’t 
it? But it is perfectly logical. Causation is 
still causation, whether it be backward or 
forward. 


_ But let’ssay that the answer appeared, 
and I felt particularly lazy that day and 
decided that I was not under any circum- 
stances going to key in that question! 
What would happen? Would the universe 
come to an end? Would Dr. Who materi- 


alize and give me a strong lecture on 
space-time misbehavior? 

No. When one thinks of the process 
only in terms of cause and effect, momen- 
tarily forgetting the direction of time, one 
realizes that the appearance of an answer 
on the screen means that a question is 
keyed into the keyboard, regardless of 
‘“time’s arrow.” Yours Truly or someone 
else must key in the question in the future, 
because now the answer is on the screen 
here in the past. This does not affect the 
idea of free will; in the future we are per- 
fectly free to choose whether or not we 
want to key in the question (for example, 
we could decide by flipping a coin). But 
if we don’t ask a question, of course, we 
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won’t receive an answer in the past. 

The longer it takes to work on a prob- 
lem, the farther back in time the computer 
will answer. A truly difficult problem 
would take so many cycles of ‘‘negative 
time’’ to process that. the answer would 
appear long before the question had even 
been formulated in the user’s mind! 

Now let’s say that I asked the com- 
puter whether Godel’s proof is valid under 
all possible higher-order logics. The 
solution to that problem would take a 
great deal of negative time for the proces- 
sor to come up with an answer. Perhaps 
years ago I saw the answer on the screen 
but dismissed it as a system malfunction, 
since I had not yet formulated the 
question in my mind or even knew what 
Godel’s proof was. Perhaps the negative 
time required for computing the answer is 
longer than the time the computer has 
been operational, so one never gets to see 
the answer! From the superluminal pro- 
cessor’s ‘‘reversed -time’’ point of view, the 
computer would appear to have been dis- 
assembled while in the process of deter- 
mining the answer. To our forward-time 
view, however, the computer had simply 
been assembled after the answer would 
have appeared on the screen, which would 
itself not have been manufactured yet. 
The first person to plug in the new com- 
puter, therefore, would be shocked to 
find the machine already working on a 
problem that it could never solve, since the 
system was not operational far enough 
back in time. 


These problems could be alleviated — 
and new problems created — by typing the 
question into a memory buffer, just like a 
batch system, where a conventional com- 
puter and AI program would analyze the 
parameters of the question and estimate 
the appropriate amount of time to wait 
before sending the question to the super- 
luminal processor. If the estimate were 
accurate, the delay period of submitting 
the question to the superluminal processor 
would be just a little longer than the 
negative time required for the answer. So 
if one keyed in a question, the answer 
would appear immediately afterward, 
even though the question had just been 
given to the delay buffer and not yet to 
the superluminal processor. 


Of course, the more difficult the 
question, the longer it has to be kept in 
the delay memory buffer before being for- 
warded to the superluminal processor. If 
the user does not get an immediate re- 
sponse, then it means that the computer 
will be experiencing some mechanical 
difficulty between the time the question is 
keyed in and the time it is finally given to 
the superluminal processor. A mechanical 
problem or power failure is more damaging 
to a superluminal computer than it is to a 
conventional computer; although a physi- 
cal interruption is the same whether one is 
looking at it while moving forward or 


backward in time, the superluminal com- 
puter user must wait for the failure to 
occur in order to fix it. Preventive main- 
tenance would come in handy at this 
point! Normally, the user would have to 
wait until the mechanical problem actually 
occurs before keying in the question. The 
computer is thus not only a diagnostician 
of its own mechanical problems but a 
precognosticator of its future mechanical 
problems: the cessation of the computer’s 
activity that prevents the answer’s appear- 
ance represents another case of reverse 
causality, or information traveling back- 
wards in time. 


Brain -Processor Communication 


With the sixth generation computer, 
the ultimate barrier between man and 
machine will finally be broken, eliminating 
the keyboard in favor of direct communi- 
cation between the human brain and the 
computer. Experiments along this line 
have already been done, funded in some 
cases by CIA-type organizations in their 
attempts to develop a practical ‘‘thought- 
scanner,”’ 

When a human brain is exposed to 
some stimulus (such as a flash of light or 
the appearance of an alphanumeric sym- 
bol or an entire word), the segment of 
brain waves recorded by an electro- 
encephalogram (EEG) about half asecond 
later contains a waveform (the “‘evoked 
potential’ or “event-related potential’’) 
that is a mental representation of the 
stimulus. The actual waveform is hidden, 
however, by “‘noise” — the unique spurious 
fluctuations introduced to the waveform 
by the individual brain undergoing analy- 
sis. The noise is eliminated and the actual 
waveform extracted by repeating the 
stimulus 50 or 100 times and then aver- 
aging all of the resulting recorded seg- 
ments (each one slightly different from 
all the others because of the noise) and 
subjecting them to a Fourier analysis, 
which demonstrates the mathematical 
relationship between a complex periodic 
phenomenon and the simple harmonics 
that make it up. 

The noise appears as harmonics of 
such complexity that for practical pur- 
poses it can be considered random noise; 
it cancels out once 100 samples are aver- 
aged. The final classification of the wave- 
form includes not only the actual waveform 
with its fundamental wave and harmonics 
but the ‘“‘latency’’ or length of time 
between the stimulus and the waveform’s 
appearance. 


Early success came in 1964, when 
W. Grey Walter and his colleagues at the 
Burden Neurological Institute in Bristol, 
England, discovered a wave that occurs 
whenever a subject anticipates something 
pleasurable (the so-called “expectancy 
wave’’). In the same year, Samuel Sutton 
of the New York State Psychiatric Insti- 
tute discovered the wave that we all 


produce when we hear a phone or doorbell 
or see a sudden flash of light — the so- 
called ‘“‘surprise wave.” Later, Helen 
Neville of the Salk Institute for Biological 
Studies in La Jolla, California, found the 
wave given off whenever one focuses 
one’s attention on one stimulus out of 
many — the “‘selective attention wave.” 

In 1980, Steven Hillyard and Marta 
Kutas of the University of California, 
San Diego, discovered a negative polarity 
wave with a latency of 400 milliseconds 
(N400 wave) that represents a confused 
reaction to something — the ‘“‘double-take 
wave.”’ Thus, a person’s learning process 
can be monitored simply by noting when 
during a programmed instruction course 
the person’s brain emits the N400 wave 
representing his or her confusion. 

In terms of identifying the language 
functions, neurophysiologist Donald York 
and speech pathologist Thomas Jensen at 
the University of Missouri have found 
“‘motor template waves’ associated with 
about 20 different syllables, and a Russian 
scientist has supposedly isolated specific 
waves for specific meanings. His theory is 
that the different waveforms representing, 
for example, chair, desk, and table are 
special variations of an underlying wave- 
form representing the concept of furniture, 
which itself could be a particular variation 
of a still more general waveform repre- 
senting the concept of object or thing. 

Practical applications of computer 
brain wave analysis have already appeared. 
Erich Sutter at the Smith-Kettlewell 
Institute in San Francisco has designed a 
system where the user dons some elec- 
trodes and glances at a particular flashing 
light when the user wants the computer 
to command a servomechanism. Each 
light, flashing in a pattern unique from all 
other lights, is delegated to specific tasks. 
The distinctive waveform resulting from 
the particular flashing-light stimulus is 
extracted from the brain wave pattern by 
a computer and is compared to the library 
of waveforms in the computer’s memory 
through another pattern-matching tech- 
nique. When a match occurs, the program 
“knows’’ which light was observed by the 
user, and a corresponding I/O subroutine 
is triggered to activate a certain piece of 
equipment. This system can help the 
handicapped operate bionic extremities 
or enable pilots to maneuver aircraft while 
subjected to paralyzing g-forces. 


All of this work is remarkable when 
one realizes that less than 10 percent of 
the brain cells move electrical charges of 
sufficient strength to generate electro- 
magnetic waves and that the average EEG 
records only about 32 channels. The 
electrical firings of the other neurons 
remain unanalyzed, although Robert 
Thatcher of the University of Maryland 
has described a scheme whereby a set of 
microwave transmitters would surround 
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ference patterns produced between these 
beams and the brain’s own waves would be 
recorded, processed by the computer, and 
played back as a 3-D moving picture of 
brain states and, therefore, mental pro- 
cesses — the perfect thought scanner. 

Indeed, Dr. Glen Cartwright, a com- 
puter scientist and educational psychol- 
ogist at McGill University, has already 
dubbed future brain-computer interactive 
devices “‘symbionic minds” (sym, as in 
symbiosis, and bionic). 

By wearing a specially designed hel- 
met, the sixth generation computer user 
will be able to locate and communicate 
with any person or piece of data simply 
by thinking about it. But why should the 
user be limited to a particular location, 
wearing a helmet that is plugged into a 
computer? Why not totally remove all the 
burdens of physical instrumentation from 
the user by having the computer read his 
brain waves remotely, without anything 
being worn by the user at all! 

After all, the longer the wavelength of 
an electromagnetic wave, the farther it will 
travel before losing its attenuation. As it 
turns out, the brain produces waves of a 
remarkably low frequency. These are the 
delta waves (1 to 2 cycles per second), theta 
waves (3 to 6 cycles per second), alpha 
waves (7 to 14 cycles per second), and 
beta waves (15 to 30 cycles per second). 
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A5 cycle-per-second electromagnetic 
wave (such as a brain wave) loses only 5 
percent of its total energy after traveling 
10,000 kilometers. If a human cranium 
radiates a millionth of a watt at 5 cycles 
per second, one would measure about 
ee + watts per square centimeter on the 
other side of the world. This doesn’t sound 
like much until one realizes that radio 
astronomers have detected remnant back- 
ground radio noise from the Big Bang, em- 
anating from deep in space, which is only 
about 10°*° watts per square centimeter. 

Additionally, experiments in global 
communications with submarines indicate 
that some of these frequencies set up 
resonances; the timing is such that a wave, 
weakened from its round-the-world 
journey, is reinforced upon its return by 
the next broadcast wave. The lowest of 
these frequencies are 7.8, 14.1, and 20.3 
cycles per second, two of these falling 
within the alpha region and one in the 
beta region, the realm of ordinary waking 
consciousness! 


Conversely, electromagnetic waves 
can be broadcast from the computer to the 
human brain to complete the communica- 
tion. Physicist John Taylor has remarked 
that, ‘“‘An aggregate of a thousand million 
nerve cells, each a millimeter in length, 
could act as a folded aerial with a total 
length of over a thousand kilometers.”’ 
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Muscle and nerve reactions to electro- 
magnetic radiation between 50 and 200 
cycles per second have reportedly been 
discovered in humans. 

This kind of brain-computer com- 
munication would require huge antennas 
at the computer’s location in order to 
receive the brain waves. We may, therefore, 
take one last step and apply the EPR 
effect of quantum mechanics to the prob- 
lem. Instead of communicating by electro- 
magnetic waves, the most advanced ver- 
sions of the sixth generation computer 
(appearing sometime around the middle 
of the next century) will allow direct EPR 
coupling between the electrons in the 
human brain and the electrons in the com- 
puter’s “‘transmitter/receiver.”’ 


In the 1951 edition of David Bohm’s 
Quantum Theory, he comments on the 
idea of quantum aspects of brain processes 
that was put forth in an earlier work by 
Bohr (Atomic Theory and the Description 
of Nature): “In addition to such a clas- 
sically describable mechanism that seems 
to act like a general system of communica- 
tions [within the brain] , Bohr’s suggestion 
involves. the idea that certain key points 
controlling this mechanism (which are, in 
turn, affected by the actions of this 
mechanism) are so sensitive and delicately 
balanced that they must be described in 
an essentially quantum-mechanical way. 
(We might, for example, imagine that such 
key points exist at certain types of nerve 
junctions. )”’ 

One could now turn all of this around 
and ask if a sixth generation computer 
would, in fact, be conscious, since its 
“‘transmitter/receiver’”’ would consist of 
halves of multiple two-particle systems 
correlated with their twin particles (and 
hence the mental processes) in the user’s 
brain. This may bea meaningless question, 
since we do not even have a hint of what 
consciousness is in the brain. 

Still, one is almost forced to speculate: 
are the laws of thought, even emotions 
and appreciations of beauty, reducible 
to physics, to special limiting cases of 
quantum theory? The pertinent facts 
could be distressing to those who would 
like to preserve a unique aspect of them- 
selves despite the lessons of Copernicus, 
Darwin, and Freud, but fortunately for 
myself, I have just run out of editorial 
space. 
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A New Library for Small-C 





presented a meager function library that failed to stress 

compatibility with the Unix libraries. That shortcoming 
was quickly pointed out, and a number of people have gone on 
to develop their own “‘standard”’ libraries. 

This article describes one such library, which was devel- 
oped jointly by the authors. It was implemented under CP/M 
2.2 and provides full support for the Small-C compiler and 
those programs that it compiles. Virtually all of the Unix func- 
tions that apply to foreign environments have been included. 
Naturally, standard files with I/O redirection and Unix-style 
command-line argument passing are supported. The MACRO- 
80 package was chosen for the project. 

Other than for the arithmetic and logic library (a load 
module in this library), which remains essentially as Ron Cain 
presented it in 1980, only about 20 lines of assembly language 
code exist in this implementation. That makes even the low- 
level system functions much easier to understand and to adapt 
to other environments. 

Some changes were made to the compiler itself with this 
implementation, so it has been redesignated Version 2.1. 
Except for the library, however, the differences from Version 
2 are minor, so we only mention them in passing: 


ia he last installment on Small-C (DDJ Nos. 74 and 75) 


(1) To reduce command-line clutter, a filename in the com- 
mand line (not a redirection specification) causes the compiler 
to output to a file having the same name but with an extension 
of MAC; the default input file extension is C. If more than one 
file is specified, they are compiled into a single program bear- 
ing the name of the first file. If no filename is given, input and 
output are done on the standard input and output files, as 
before, and redirection may be used to change the default con- 
sole assignments. 

(2) Undeclared functions are automatically declared to be 
external. 


(3) The syntax (*func) ( ) for declaring pointers to functions 
and for calling such functions is now accepted. 

(4) To accommodate the MACRO-80 package, the code- 
generating logic was changed and some functions were re- 


named to avoid clashes with reserved symbols and because 
MACRO-80 limits external names to six characters. 


(5) Fixes and enhancements reported in DDJ by Andrew 
Macpherson and Paul West have been applied, along with a 
number of other minor fixes. 


(6) Calls to nonstandard functions have been replaced by stan- 
dard library calls. 


A book entitled The Small-C Handbook is being printed 
by the Reston Publishing Company and should be available 
about the time you read this. It fully documents, from the 
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user’s point of view, the Small-C language and compiler, in- 
cluding this library. Most of the material in this article’s section 
“User Functions” is borrowed from the book. 


Library Organization 


Generally, each library function is compiled and assembled 
separately; it is then kept in a library of relocatable object 
modules, which we call CLIB.REL. Some functions that share 
common code or are otherwise related are grouped into a 
single module. Examples are printf, fprintf, and the low-level 
system functions found in the module CSYSLIB. 

At link time, L80 is directed to search CLIB.REL to 
resolve external references. Everything needed to support the 
program under CP/M is loaded and linked into the resulting 
COM file. Modules that are not referenced are not loaded. The 
minimum set of functions loaded comes to 5.5K bytes. 

Since L80 does not scan backwards to find a module, the 
library is organized so that backward references only involve 
modules that are known to be loaded; otherwise, the library 
is arranged alphabetically. The compiler always generates an 
external reference to _link: 


_link: : ext _ main 
end 


This occurs first in the library and forces the-loading of CSYS- 
LIB, which follows. The last module in the library is CALL, 
the arithmetic and logic library. It is loaded last in order to 
establish the location where free memory begins. 


System Functions 


The low-level system functions in the source file CSYS- 
LIB.C are shown in Listing One (page 60). The names of these 
functions and the global variables that they use begin with 
the underscore character to avoid clashes with user-written 
function and variable names. MACRO-80 accepts these 
despite a statement to the contrary in the documentation. We 
found, however, that older versions of MACRO-80 would not 
accept such names as external references. 


Program Initiation and Termination 
The last part of CALL contains the following code: 


_end: lhid 6 ;get bdos address 
sphl suse for base of stack 
lxi h,_end ;get start of free memory 
shld _memptr## suse for memory allocation 
jmp _main## ;parse command line, 
;execute program 
end _end 


The label _end designates the end of the program and the 
beginning of free memory. As indicated by the last line, this 
is also where program execution begins. (L80 plants a jump 
to this address at the beginning of the user program.) This 
logic is executed once, after which its memory space becomes 
available for use by the program. It first sets SP to the base of 
BDOS, thus overlaying the CCP; then sets _memptr to the 
beginning of free memory; and finally jumps to _main to pre- 
pare for execution of the program. 


The function _ parse is called by _ main to perform com- 
mand-line parsing and I/O redirection. It first copies the CP/M 
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command line into a dynamically allocated buffer and then 
scans it, calling _field to isolate arguments and __redirect to 
alter the assignments of stdin and stdout (appending is sup- 
ported). If a redirection open fails, the program aborts after 
displaying the letter R for ‘“‘redirection error.” 

Finally, argc and argv are pushed onto the stack, and main 
is called to start program execution. On return, exit is called 
with a zero argument signifying successful completion. Of 
course, the program could also call exit directly and pass what- 
ever error code it wishes; the error code, if it is nonzero, is 
written as a byte to the console. Any open files are closed and 
a warm start is performed. 


The BDOS Interface 


A bare-bones BDOS interface is provided as a function 
called _bdos. It takes two arguments: first the function code 
to be placed in the C register, then the value to be placed in 
the DE register pair before calling address 5. On return, HL 
(the primary register for Small-C) receives the CP/M return 
code from the A register. 

This simple interface is sufficient to support the library 
functions. A more complete BDOS interface was described by 
Terje Bolstad in DDJ No. 80 (June 1983). His ideas could be 
applied here to provide more flexibility if that is desirable. 


Memory Management 


Memory is allocated in unlinked, contiguous blocks begin- 
ning at the end of the program. Each call to _alloc allocates 
one block of zeroed or uninitialized memory, depending on 
the value of the second argument. The standard functions 
malloc and calloc call _ alloc. 

Memory may be deallocated by calling free or cfree, but 
care must be taken to deallocate memory in the reverse order 
from which it was allocated. Deallocating memory simply 
places a new value in _memptr; everything above that address 
is considered free. 

A function called avail may be called to find out how 
much memory lies between _memptr and the stack pointer. 
If there is a program/stack overlap, avail either returns zero or 
aborts the program after displaying the letter M for ““memory 
error,” as requested. Malloc and calloc abort this way if suf- 
ficient memory is unavailable. 


File Management 


Low-level Unix functions identify files by means of small 
integer values called file descriptors. Whereas the Unix Stan- 
dard I/O Library uses a pointer to a file control structure, our 
library uses the file descriptor approach throughout, even 
though the library includes functions from the Standard I/O 
Library. The impact of this difference is negligible if one 
restricts file references to the values returned by the function 
fopen and the symbols stdin, stdout, and stderr (defined in 
the header file STDIO.H as 0, 1, and 2, respectively). 

The symbol MAXFILES in CLIB.DEF determines how 
many files may be opened simultaneously. Seven integer 
arrays are dimensioned according to that value. They are: 


_ status] MAXFILES] — This is a bit-encoded status word 
indicating whether a file is open on the corresponding file 
descriptor; zero implies a closed condition. Separate bits 
authorize reading and writing, and there are bits for end- 
of-file and error conditions. 

_device[ MAXFILES] — This contains a nonzero code 
designating one of the CP/M logic devices when a nondisk 
file is opened on the corresponding file descriptor. 
_fcebptr[MAXFILES] — When a disk file is first opened 
on a file descriptor, a standard CP/M file control block 
(FCB) is dynamically allocated; its address is kept here. 
When the file is closed, the FCB is saved for reuse. Recall 
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that the memory allocation scheme is too primitive to 
allow indiscriminate freeing of memory. Likewise, the 
program must not free memory that was allocated before 
a disk file is opened. 


_bufptr[MAXFILES] — As with the FCB, a buffer is 
allocated when a disk file is opened; its address is kept 
here. Buffers also are saved when a file is closed. 


_chrpos[MAXFILES] — This is an offset to the next 
byte to be obtained from the corresponding buffer. Note 
that the current sector of a file is maintained in the ran- 
dom record number field in the FCB itself, and only 
random CP/M reads and writes are performed. 


_dirty[MAXFILES] — A nonzero value here indicates 
that the corresponding buffer contains new data that 
needs to be written to disk. 


_nextc[MAXFILES] — A character that has been pushed 
back into a file by ungetc is kept here. The value EOF 
(defined in STDIO.H) cannot be pushed back, so it indi- 
cates an empty bucket. 


No attempt is made to save space in these arrays, since 
Small-C generates significantly more code to access character 
values than to access integers. Since these integer arrays are 
small, more space would be tied up in code than would be 
saved by making some of them character arrays. 

The function _mode is used extensively to verify both 
that a file descriptor has a legal value and that the indicated 
file is open. If the file descriptor is valid, the status of its file 
is returned; otherwise, zero is returned. 

The function _open is called by both fopen and freopen. 
It tries to open a file on a designated file descriptor. It verifies 
that the first character of the mode argument is either r (read), 
w (write), or a (append). If the filename is CON:, LST:, PUN;, 
or RDR:, it simply assigns the indicated logical device to the 
file descriptor and returns. Otherwise, it allocates an FCB and 
a buffer for the file, as necessary. It then calls _newfcb to 
validate the filename, force it to upper case, and initialize the 
FCB. Finally, it calls _ bdos to open the file. 

In the case of read mode, the first sector (128-byte 
CP/M record) of the file is automatically read into the buffer. 
In the case of write mode, if the file already exists, it is deleted 
before a new one is created. In the case of append mode, if the 
file does not exist, a new one is created; if the file does exist, 
it is opened, positioned at the beginning of the last block, then 
read to end-of-file by repeatedly calling fgetc. If a control-Z 
signals end-of-file, _chrpos is adjusted to begin writing at 
that position. Note that, while this approach avoids reading 
the entire file, a character stream file is presumed and em- 
bedded control-Z characters may be missed. 

If a + follows the mode character (e.g., r+), an update 
mode is implied and _ status is set to allow both reading and 
writing. This new feature of Unix/C is documented by C. D. 
Perez in A Guide to the C Library for UNIX Users. Apparently, 
under Unix/C one must call fseek or rewind when switching 
between read and write operations. Our library, however, per- 
mits unrestricted switching between reads and writes; each 
operation begins with the byte following the last one trans- 
ferred. Since Small-C does not yet support long integers, we 
do not support fseek. Instead, cseek provides a seek to CP/M 
record boundaries. 

When a read detects end-of-file, the EOF bit in _ status 
is set, thereby disabling further reads; writes, however, are per- 
mitted. The EOF bit is cleared by a successful seek or rewind 
operation. Opening a file in write or append mode automat- 
ically sets the EOF bit. One may extend a file either by open- 
ing in append mode or by opening in read-update mode, 
reading to end-of-file, and then writing. 

Unix performs only binary file transfers, and the end of a 
file is maintained as a pointer in the directory structure. It is 
up to the device drivers to translate between the newline char- 
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acter and the carriage return, line feed sequence. This scheme, 
however, cannot be followed under CP/M. First, there is no 
place in the CP/M file directory to store an end-of-file pointer. 
Second, in order to maintain ASCII file compatibility with 
other CP/M software, control-Z must be used to signal end- 
of-file, and the newline character must be translated to a 
carriage return, line feed sequence on output and vice versa 
on input. 

Therefore, it was necessary to choose a means of discrim- 
inating between byte stream (binary) and character stream 
(ASCII) operations. It would not have violated the intent of 
the C developers to specify different, nonUnix open modes for 
this purpose. But we preferred to retain the standard open 
modes and distinguish between the I/O functions instead. In 
our library, calls to read, fread, write, and fwrite give binary 
transfers; all other calls (e.g., fgetc, fgets, etc.) give ASCII 
transfers. This makes Small-C programs upwardly compatible 
with Unix without changing the open modes. 

Note that binary reads detect end-of-file only at the end 
of the last sector in a file. This is necessarily inconsistent with 
Unix, which can tie the end of a file to the byte. 


Diagrammed in Figure 1 (page 54) are the principal func- 
tions involved in I/O transfers. Lines connecting the function 
names illustrate the possible flow of control. All input/output 
requests pass through either _read or _ write. These perform 
only binary data transfers, one byte at a time. The logic for 
character stream operations is in fgetc and fputc, which in 
turn are called by the other character stream functions. 


The functions _conin and _conout perform console com- 
munication. CP/M direct console I/O is used for all console 
communication. On output, this gives full control of the con- 
sole device to the program. It also allows the program to poll 
the console (by means of the function poll) for operator 
input while writing data to the console. 


Had conventional console I/O been used, CP/M would also 
poll for control characters, making it a matter of chance who 
would get an input character. Using CP/M direct console I/O 
meant that the customary keyboard input services (echo, 
rubout, etc.) had to be built into _conin and fgets. But, as a 
look at these functions will show, the cost was modest. 


As their names imply, _getsec and _putsec transfer a 
sector of data between a buffer and the disk. They are called 
when buffers become empty or full. 


Getting a sector involves first flushing the buffer to disk 
if it contains new data. Next, the random record number 
(RRN) of the FCB is advanced by calling _advance. Finally, 
the data is transferred by calling _sector (which calls _bdos). 
The end-of-file status is set if the attempt fails. 


Writing a sector differs from reading by more than the 
direction of the data flow. The order of calls to _ sector and 
_advance are reversed since the RRN now describes the posi- 
tion in the file where the newly filled buffer should go. After 
transferring the data, _newbuf is called to pad the buffer with 
control-Z characters in anticipation of further _ write calls. 


In keeping with the Unix concept of treating directories 
as ordinary files; CSYSLIB makes disk directories look like 
ASCII files of filenames (one to a line) to programs that 
read them. A file specifier consisting of only the drive identifier 
(e.g., B:) is taken to mean the directory on the indicated drive. 
The value X: indicates the default drive. Such “filenames” 
may be used for redirecting the standard input file (e.g., <B:) 
and they are accepted by the functions fopen and freopen. 
This feature is a compile option controlled by the symbol DIR 
in CSYSLIB; it takes an additional 0.3K bytes of memory. 
That seems a small price to pay for the flexibility it gives. 
Combined with a respectable set of Small-C “software tools,” 
this feature makes the dynamic creation of SUBMIT files for 
performing multi-file operations a routine affair. 
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User Functions* 


Listing Two (to be printed next month) shows the source 
code for the user-level functions. Most of them are patterned 
after Unix counterparts. Some, however, are unique to this 
library; these are designated as Small-C functions. A number 
of symbols defined in STDIO.H are mentioned. They are: 


#define stdin 0 /* fd for standard input file */ 
#define stdout 1 /* fd for standard output file */ 
#define stderr 2 #£/* fd for standard error file */ 
#define ERR -2  # /* error condition return value */ 
H#define EOF -1 # /* end-of-file return value */ 
#define NULL 0  /* value of a null character */ 


In addition, the abbreviation fd refers to a file descriptor. 


Input/Output Functions 


e fopen (name, mode) char *name, *mode; 


This function attempts to open the file indicated by the 
null-terminated character string at name. Mode points to a 
string indicating the use for which the file is to be opened. The 
values for mode are: 


soy? Fead 
iw = write 
“a” — append 


Read mode opens an existing file for input. Write mode either 
creates a new file or opens an old file and truncates it to per- 
mit writing to start at the beginning of the file. Append mode 
allows writing to begin at the end of an existing file or at the 
beginning of a new one. 

In addition, there are modes that allow file updating (both 
reading and writing). They are: 

“r+”? — update read 

‘‘w+” — update write 

‘a+’ — update append 


These modes are the same as their nonupdate counterparts 
in terms of their effect at open time, but they also allow 
switching between read and write modes by interleaving calls 
to input and output functions. 


Unless the program performs a seek or rewind operation, 
the next read or write operation begins at the point where the 
previous one finished. If the attempt to open a file is success- 
ful, fopen returns an fd value for the open file; otherwise, it 
returns NULL. The returned fd is then used in subsequent 
input/output function calls to identify the file. Only the stan- 
dard files may be used without first calling fopen. 


e  freopen (name, mode, fd) char *mame, *mode; int fd; 

This function closes the previously opened file indicated 
by fd and opens a new one whose name is in the null-termi- 
nated character string at name. As for fopen, mode points to 
a character string indicating the open mode. It returns the 
original value of fd if the attempt is a success or NULL upon 
failure either to close the old file or to open the new one. 
Note, however, since the fd for the standard input file is zero, 
there is no way of distinguishing success from failure in that 
case. 


e  fclose (fd) int fd; 

This function closes the specified file. If any new data is 
being held in the file’s buffer, this data is first written to disk. 
It returns NULL on success or a nonzero value on error. 


e  fgetc (fd) int fd; (alias getc) 

This function returns the next character from the file 
indicated by fd. If no more characters remain in the file or an 
error condition occurs, it returns EOF. The end of the file is 
detected when the implementation standard end-of-file 
character occurs or the physical end of the file is reached. 


e ungetc (c, fd) char c; int fd; 


This function logically (not physically) pushes the char- 
acter c back into the file indicated by fd. The next read from 
that file will retrieve that character first. Only one character at 
a time may be held in waiting. This function returns the char- 
acter itself on success; it returns EOF if a previously pushed 
character is being held or if c has the value of EOF (you can- 
not push EOF into a file). Performing a seek or rewind oper- 
ation on a file causes a pushed character to be forgotten. 





* Most of the material in this section is reprinted with permission of the publisher and the author from: James E. Hendrix, The 
Small-C Handbook, Reston Publishing Co., © 1984. Reston Publishing Co., 11480 Sunset Hills Road, Reston, VA 22090. 
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e  getchar ( ) 
This function is equivalent to fgetc (stdin). 


e fgets (str, sz, fd) char *str; int sz, fd; 

This function reads up to sz-1 characters into memory 
from the file indicated by fd, starting at the address indicated 
by str. Input is terminated after transferring a newline char- 
acter, and a null character is appended after the newline or 
in the last position if newline is not found. Fgets returns str 
for success; otherwise, it.returns NULL for end-of-file or an 
error. 


e fread (ptr, sz, cnt, fd) char *ptr; int sz, cnt, fd; 

This function reads into memory from the file indicated 
by fd cnt items of data, sz bytes in length, starting at the 
address indicated by ptr. A count of the actual number of 
items read is returned to the caller (this might be less than cnt 
if the end of the file was encountered). This function performs 
a binary transfer; it does not convert carriage return, line feed 
sequences into newline characters, and it has no special regard 
for end-of-file bytes. It recognizes only the physical end of 
the file. You should call feof to determine when the data is 
exhausted and ferror to detect error conditions. 


e read (fd, ptr, cnt) int fd, cnt; char *ptr; 

This function reads cnt bytes of data into memory from 
the file indicated by fd, starting at the address indicated by 
ptr. A count of the actual number of bytes read is returned to 
the caller. This might be less than cnt if the end of the file was 
encountered. This function performs a binary transfer; it does 
not convert carriage return, line feed sequences into newline 
characters, and it has no special regard for end-of-file bytes. It 
recognizes only the physical end of the file. You should call 
feof to determine for sure when the data is exhausted and 
ferror to detect error conditions. 


e gets (str) char *str; 
This function reads characters into memory from stdin, 
starting at the address indicated by str. Input is terminated 


when a newline character is encountered, but the newline 
itself is not transferred; a null character terminates the input 


read 


T 


bic eget 





string. Gets returns str for success and NULL for end-of-file 
or an error. Since this function may transfer any amount of 
data, you must check the size of the input string to verify that 
it has not gone beyond its allotted space. 
e feof (fd) int fd; 

This function returns a nonzero value if the file desig- 
nated by fd has reached its end. Otherwise, it returns NULL. 
e  ferror (fd) int fd; 


This function returns a nonzero value if the file designated 
by fd has encountered an error condition since it was opened. 
Otherwise, it returns NULL. 


e clearerr (fd) int fd; 

This function clears the error status for the file indicated 
by fd. 

e fputc (c, fd) char c; int fd; (alias putc) 

This function writes the character c to the file indicated 
by fd. It returns the character itself on success; otherwise, it 
returns EOF. If c is a newline character, then a carriage return, 
line feed pair is written. 

e  putchar (c) char c; 
This function is equivalent to fputc (c, stdout). 


e fputs (str, fd) char *str; int fd; 


This function writes characters beginning at the address 
indicated by str to the file indicated by fd. Successive char- 
acters are written until a null byte is found. The null byte 
is not written and a newline character is not appended. 

e puts (str) char *str; 

This function works like fputs (str, stdout) except that 

it appends a newline character to the output. 


e fwrite (ptr, sz, cnt, fd) char *ptr; int sz, cnt, fd; 

This function writes from memory to the file indicated by 
fd cnt items of data, sz bytes long, starting at the address indi- 
cated by ptr. It returns a count of the number of items written. 
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Although an error condition may cause the number of items 
written to be less than cnt, you should call ferror to verify all 
error conditions. This function performs a binary transfer; it 
does not convert newline characters into carriage return, line 
feed sequences. 


e write (fd, ptr, cnt) int fd, cnt; char *ptr; 

This function writes from memory to the file indicated 
by fd cnt bytes of data, starting at the address indicated by 
ptr. It returns a count of the number of bytes written. An 
error condition may cause the number of bytes written to be 
less than cnt. You should call ferror to verify error conditions, 
however. This function performs a binary transfer; it does not 
convert newline characters into carriage return, line feed 
sequences. 


e = fflush (fd) int fd; 

This function forces any system-buffered changes out to 
the file. Ordinarily, data written to a disk file is held in a mem- 
ory buffer until the buffer becomes full, the buffer space is 
needed to hold a different sector of data from the disk, or the 
file is closed. Fclose calls this function. Fflush returns NULL 
on success or EOF on error. 


e _cseek (fd, offset, from) int fd, offset, from; 

This Small-C function positions the file indicated by fd 
to the beginning of the 128-byte record that is offset posi- 
tions from the first record, current record, or end-of-file, 
depending on whether from is 0, 1, or 2, respectively. Subse- 
quent reads and writes proceed from that point. It returns 
NULL for success and EOF otherwise. 


e rewind (fd) int fd; 
This function positions the file indicated by fd to its 


beginning. It is equivalent to a seek to the first byte of the 
file. It returns NULL on success and EOF otherwise. 


e  ctell (fd) int fd; 

This Small-C function returns the position of the current 
record of the file indicated by fd. The returned value is the 
offset of the current 128-byte record with respect to the first 
record of the file. If fd is not assigned to a disk file, -1 is 
returned. 


e unlink (name) char *name; (alias delete) 


This function deletes the file indicated by the null- 
terminated character string at name. It returns NULL on suc- 
cess and ERR otherwise. 


e rename (old, new) char *old, *new; 


This Small-C function changes the name of the file 
specified by old to the name indicated by new. It returns 
NULL on success and ERR otherwise. 


e auxbuf (fd, size) int fd, size; 


This Small-C function allocates an auxiliary buffer of size 
bytes for fd. It returns zero on success and ERR on failure. 
Fd must be open, and size must be greater than zero and less 
than the amount of free memory. If fd is a device, the buffer is 
allocated but ignored. Extra buffering is useful in reducing 
disk head movement or drive switching during sequential oper- 
ations. Once an auxiliary buffer is allocated, it sticks for the 
duration of program execution, even if fd is closed. Calling this 
function a second time for the same fd returns ERR but other- 
wise has no effect. Alternating read and write operations or 
performing seeks produces unpredictable results; ungetc( ), 
however, will operate normally. Ordinarily, it is counterpro- 
ductive to allocate auxiliary buffers to both input and output 
files. 


e  iscons (fd) int fd; 
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MicroMotion 


MasterFORTH 


ls here — the next generation 
of MicroMotion Forth. 


Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


@ Built-in micro-assembler with numeric local labels. 


e Afull screen editor is provided which includes 16 x 
64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 


Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


e@ The input and output streams are fully redirectable. 


e Theeditor, assembler and screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 


Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 


The string-handling package is the finest and 
most complete available. 


A listing of the nucleus is provided as part of the 
documentation. 


The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. 


e@ Floating Point & HIRES options available. 
e Available for APPLE II/Il+/lle & CP/M 2.x users. 


e MasterFORTH — $100.00. FP & HIRES -$40.00 each 
(less 25% for FP & HIRES). 


Publications 
@ FORTH TOOLS — $20.00 


@ 83 International Standard — $15.00 


e@ FORTH-83 Source Listing 6502, 8080, 8086 - 
$20.00 each. 





Contact: 


MicroMotion 
42077 Wilshire Bivd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 
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This Small-C function returns a nonzero value if fd is 
assigned to the console; otherwise, it returns NULL. 


e isatty (fd) int fd; 
This function returns a nonzero value if fd is assigned to 
a device rather than a disk file; otherwise, it returns NULL. 


Formatted Input/Output Functions 


e  printf(str, arg1, arg2,. . .) char *str; 

This function writes to the standard output file a for- 
matted character string consisting of the null-terminated 
character array at str, laced at specific points with the char- 
acter-string equivalents of the arguments: 

arg]. arg2 .:. 

It also returns a count of the total number of characters 
written. 

The string at str, which is called a control string, is re- 
quired, but the other arguments are optional. The control 
string contains ordinary characters and groups of characters 
called conversion specifications. Each conversion specification 
informs printf how to convert the corresponding argument 
into a character string for output. The converted argument 
then replaces its conversion specification in the output. The 
character % signals the start of a conversion specification, and 
one of the letters b, c, d, 0, s, u, or x ends it. 

Between these may be found, in the order listed and with 
no intervening blanks, a minus sign, a decimal integer constant, 
and/or a decimal fraction. These subfields are all optional; in 
fact, one frequently sees conversion specifications with none 
of them. The minus sign indicates that the string, produced by 
applying a specified conversion to its argument, is to be left- 
adjusted in its field in the output. The decimal integer indi- 
cates the minimum width of that field (in characters); if more 
space is needed, it will be used, but at least the indicated 
number of positions will be generated. The decimal fraction 
is used where the argument being converted is itself a character 
string (or more correctly, the address of a character string). In 
this case the decimal fraction indicates the maximum number 
of characters to take from the string. If the specification has 
no decimal fraction, then all of the string is used. 

The terminating letter indicates the type of conversion to 
be applied to the argument. It may be one of the following: 


b The argument should be considered an unsigned integer 
and converted to binary format for output. No leading 
zeroes are generated. This specification is unique to 
Small-C and should be used with that in mind. 


c The argument should be output as a character without 
any conversion, in which case the high-order byte will 
be ignored. 


d The argument should be considered a signed integer and 
converted to a (possibly signed) decimal digit string for 
output. No leading zeroes are generated. The sign is the 
leftmost character; it is blank for positive and ‘‘~-’’ for 
negative. 


o The argument should be considered an unsigned integer 
and converted to octal format for output. No leading 
zeroes are generated. 


s The argument is the address of a null-terminated char- 
acter string that should be output as is, subject to the 
justification, minimum width, and maximum size specifi- 
cations indicated. 


u The argument should be considered an unsigned integer 
and converted to an unsigned decimal character string for 
output. No leading zeroes are generated. 

x The argument should be considered an unsigned integer 
and converted to hexadecimal format for output. No lead- 
ing zeroes are generated. 


If a % is followed by anything other than a valid specification, 
the % is ignored and the next character is written without 
change. So %% writes %. 

Printf scans the control string from left to right, sending 
everything to stdout until it finds a % character. It then evalu- 
ates the conversion specification that follows and applies it to 
the first argument (following the control string). The resultant 
string is written to stdout. Printf then resumes writing data 
from the control string until it finds another conversion speci- 
fication; it applies that one to the second argument. The pro- 
cedure continues until the control string is exhausted. The 
result is a formatted output message consisting of both literal 
and variable data. 


e © fprintf(fd, str, arg1, arg2,. . .) int fd; char *str; 
This function works like printf except that output goes to 


the file indicated by fd. 


e  scanf(str, argl, arg2,...) char *str; 

This function reads a series of fields from the standard 
input file, converts the fields to internal format according to 
conversion specifications contained in the control string str, 
and stores them at the locations indicated by the arguments: 

areal are25<s.. 

It returns a count of the number of fields read. 

A field in the input stream is a contiguous string of 
graphic characters. It ends with the next white-space character 
(blank, tab, or newline) unless its conversion specification 
indicates a maximum field width, in which case it ends when 
the field width is exhausted. A field normally begins with the 
first graphic character after the previous field; that is, leading 
white space is skipped. 

Since the newline character is skipped while searching for 
the next field, scanf reads as many input lines as required to 
satisfy the number of conversion specifications in its control 
string. Each of the arguments following the control string must 
yield an address value. 


The control string contains both conversion specifications 
and white space (which is ignored). Each conversion specifica- 
tion informs scanf how to convert the corresponding field into 
internal format, and each argument following str indicates the 
address where the corresponding converted field is to be 
stored. The character % signals the start of a conversion speci- 
fication, and one of the letters b, c, d, 0, s, u, or x ends it. 

Between these may be found, with no intervening blanks, 
an asterisk and/or a decimal integer constant. As in printf, 
these subfields are both optional. The asterisk indicates that 
the corresponding field in the input stream is to be skipped; 
skip specifications do not have corresponding arguments. The 
numeric field indicates the maximum field width (in char- 
acters). If present, it causes the field to be terminated when 
the indicated number of characters has been scanned, even if 
no white space is found; however, if a white-space character 
is found before the field width is exhausted, the field is ter- 
minated at that point. 

The terminating letter indicates the type of conversion to 
be applied to the field, It may be one of the following: 


b The field should be considered a binary integer and con- 
verted to an integer value. The corresponding argument 
should be an integer address. Leading zeroes are ignored. 
This specification is unique to Small-C and should be 
used with that in mind. 


c The field should be accepted as a single character without 
any conversion. This specification inhibits the normal 
skip over white-space characters. The argument for such 
a field should be a character address. 

d The input field should be considered a (possibly signed) 
decimal integer and converted into an integer value. The 
corresponding argument should be an integer address. 
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Leading zeroes are ignored. 


o The field should be considered an octal integer and con- 
verted to an integer value. The corresponding argument 
should be an integer address. Leading zeroes are ignored. 


s The field should be considered a character string and 
stored with a null terminator at the character address 
indicated by its argument. There must be enough space 
at that address to hold the string and its terminator. 
(Remember, you can specify a maximum field width to 
prevent overflow.) The specification %1s will read the 
next graphic character, whereas %c will read the next 
character, whatever it is. 


u The field should be considered an unsigned decimal 
integer and converted to an integer value. The corre- 
sponding argument should be an integer address. Leading 
zeroes are ignored. This specification is unique to Small-C 
and should be used with that in mind. 


x The field should be considered a hexadecimal number and 
converted to an integer value. The corresponding argu- 
ment should be an integer address. Leading zeroes or a 
leading Ox or OX will be ignored. 


Scanf. scans the control string from left to right, process- 
ing input fields until the control string is exhausted or a field 
is found that does not match its conversion specification. If 
the value returned by scanf is less than the number of conver- 
sion specifications, an error has occurred or the end of the 
input file has been reached. EOF is returned if no fields are 
processed because end-of-file has been reached. 


e  fscanf(fd, str, arg1, arg2,. . .) int fd; char *str; 






THE FULL-FEATURED KEYBOARD EXPANDER 
for all 8080-8085-Z8O computers using CP/M 2.2 


MagiKey™ will redefine your keys as character strings ... and transform single 
keystrokes into commands for programs, words for word processors, data for data 
bases, and messages for modems. Without hardware or system modifications. 


MagiKey™ has more advanced features than any other CP/M keyboard ex- 
pander. For example: 


*x Redefine a key to send the string: 
“Run WordStar and edit form letter number 17” 
Hit the Koy. YOU will see the string, but “WS FRMLIR17” will be sent to CP/M. 
MagiKey™'s CONSOLE REDIRECTION can display messages which are invisible 
to programs and CP/M ... very useful for recalling key assignments, custom 
operator prompts, and making CP/M friendlier. 


* Redefine a key to run several programs in sequence. Each program can wait 
for keyboard input or receive pre-defined commands and data. MagiKey™'s 
built-in BAICH PROCESSING doesn't use CP/M’s SUBMIT, and handles programs 
that CP/M'’s. XSUB can't. 


* Redefine a key to display the prompt: 
“Execute SuperCalc using the spreadsheet file: 
Press the key to display the prompt. lype the file name, hit RETURN, and you're 
into SuperCalc. When done, a single keystroke saves your updated spreadsheet. 
You don't have to remember or retype its name. MagiKey™’s RECURSIVE key 
redefinition mode automatically does it for you. 
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This function works like scanf except that the input is 
taken from the file indicated by fd. 


Format Conversion Functions 


e atoi(str) char *str; 

This function converts the decimal number represented by 
the string at str to an integer and returns its value. Leading 
white space is skipped, and an optional sign (+ or -) may pre- 
cede the leftmost digit. The first nonnumeric character ter- 
minates the conversion. 


e atoib(str, base) char *str; int base; 


This Small-C function converts the unsigned integer of 
base base, represented by the string at str, to an integer and 
returns its value. Leading white space is skipped. The first non- 
numeric character terminates the conversion. 


e itoa(nbr, str) int nbr; char *str; 

This function converts the number nbr to its decimal 
character-string representation at str. The result is left- 
justified at str with a leading minus sign if nbr is negative. A 
null character terminates the string, which must be large 
enough to hold the result. 


e itoab(nbr, str, base) int nbr; char *str; int base; 


This Small-C function converts the unsigned integer nbr 
to its character-string representation at str in base base. The 
result is left-justified at str. A null character terminates the 
string, which must be large enough to hold the result. 


e dtoi(str, nbr) char *str; int *nbr; 

























For only $95, Q/C is a ready-to-use C compiler for CP/M. You get 
complete source code for the compiler and over 75 library functions. 
Q/C is upward compatible with UNIX Version 7 C, but doesn’t sup- 
port long integers, float, parameterized #defines, and bit fields. 


e Full source code for compiler and library. 

e No license fees for object code. 

e Z80 version takes advantage of Z80 instructions. 

e Excellent support for assembly language and ROMs. 

e Q/C is standard. Good portability to UNIX. 
Version 3.2 of Q/C has many new features: structure initialization, 
faster runtime routines, faster compilation, and improved ROM sup- 
port. Yes, Q/C has casts, typedef, sizeof, and function typing. The 
Q/C User’s Manual is available for $20 (applies toward purchase). 
VISA and MasterCard welcome. 
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5266 Hollister 

Suite 224 

Santa Barbara, CA 93111 
(805) 683-1585 





Q/C, CP/M, Z80, and UNIX are trademarks of Quality Computer Systems, Digital 
Research, Zilog, Inc., and Bell Laboratories respectively. 
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This Small-C function converts the (possibly) signed 
decimal number in the character string at str to an integer at 
nbr and returns the length of the numeric field found. The 
conversion stops when dtoi finds the end of the string or any 
illegal numeric character. When working with 16-bit integers, 
a leading sign and five digits at most will be used. 


e otoi(str, nbr) char *str; int *nbr; 

This Small-C function converts the octal number in the 
character string at str to an integer at nbr and returns the 
length of the octal field found. It stops when it encounters 
a nonoctal digit in str. When working with 16-bit integers, 
six digits at most will be used. 


e utoi(str, nbr) char *str; int *nbr; 

This Small-C function converts the unsigned decimal 
number represented by the character string at str to an integer 
at nbr and returns the length of the numeric field found. It 
stops when it encounters the end of the string or any non- 
decimal character. When working with 16-bit integers, five 
digits at most will be used. 


e xtoi(str, nbr) char *str; int *nbr; 

This Small-C function converts the hexadecimal number 
in the character string at str to an integer at nbr and returns 
the length of the hexadecimal field found. It stops when it 
encounters a nonhexadecimal digit in str. When working with 
16-bit integers, four digits at most will be used. 


e itod(nbr, str, sz) int nbr, sz; char *str; 

This Small-C function converts nbr to a signed (if nega- 
tive) character string at str. The result is right-justified and 
blank-filled in str. The sign and possibly the high-order digits 
are truncated if the destination string is too small. It returns 
str. Sz indicates the length of the string. If sz is greater than 
zero, a null byte is placed at str[sz-1]. If sz is zero, a search 
for the first null byte following str locates the end of the 
string. If sz is less than zero, all sz characters of str are used, 
including the last one. 


e itoo(nbr, str, sz) int nbr, sz; char *str; 

This Small-C function converts nbr to an octal character 
string at str. The result is right-justified and blank-filled in the 
destination string. High-order digits are truncated if the des- 
tination string is too small. It returns str. Sz functions the 
same as in itod. 


e itou(nbr, str, sz) int nbr, sz; char *str; 

This Small-C function converts nbr to an unsigned 
decimal character string at str. It works like itod except that 
the high-order bit of nbr is taken for a magnitude bit. 

e itox(nbr, str, sz) int nbr, sz; char *str; 
This Small-C function converts nbr to a hexadecimal 


character string at str. In all other respects, it is identical to 
itoo. 


String- Handling Functions 


e = left(str) char *str; 


This Small-C function left-adjusts the character string 
at str. Starting with the first nonblank character and proceed- 
ing through the null terminator, it moves the string to the 
address indicated by str. 


e pad (str, ch, n) char *str, ch; int n; 

This Small-C function fills the string at str with n occur- 
rences of the character ch. 
e = reverse(str) char *str; 


This function reverses the order of the characters in the 
null- terminated string at str. 





e strcat(dest, sour) char *dest, *sour; : 

This function appends the string at sour to the end of the 
string at dest. The null character at the end of dest is replaced 
by the leading character of sour. A null character terminates 
the new dest string. The space reserved for dest must be large 
enough to hold the result. This function returns dest. 


e  strncat(dest, sour, n) char *dest, *sour; int n; 


This function works like strcat except that a maximum of 
n characters from the source string are transferred to the des- 
tination string. 


e stremp(str1, str2) char *str1, *str2; 


This function returns an integer less than, equal to, or 
greater than zero, depending on whether the string at str1 is 
less than, equal to, or greater than the string at str2. Char- 
acter-by-character comparisons are made, starting at the left 
end of the strings, until a difference is found. Comparison is 
based on the numeric values of the characters: str2 is con- 
sidered less than str1 if str2 is equal to but shorter than strl, 
and vice versa. 


e lexcmp(str1, str2) char *str1, *str2; 


This Small-C function works like strcmp except that a 
lexicographic comparison is used. For meaningful results, only 
characters in the ASCII character set (0-127 decimal) should 
appear in the strings. Alphabetics are compared in dictionary 
order, with upper-case letters matching their lower-case 
equivalents. Special characters precede the alphabetics and are 
themselves preceded by the control characters except DEL, 
which compares highest. 


e strncmp(str1, str2, n) char *str1, *str2; int n; 


This function works like strcmp except that a maximum 
of n characters are compared. 


e  strcpy(dest, sour) char *dest, *sour; 


This function copies the string at sour to dest; dest is 
returned. The space at dest must be large enough to hold the 
string at sour. 


e strncpy(dest, sour, n) char *dest, *sour; int n; 


This function works like strepy except that n characters 
are placed in the destination string regardless of the length of 
the source string. If the source string is too short, null padding 
occurs; if it is too long, it is truncated in dest. A null character 
follows the last character placed in the destination string. 


e _ strlen(str) char *str; 

This function returns a count of the number of characters 
in the string at str. It does not count the null character that 
terminates the string. 

e = strchr(str, c) char *str, c; 

This function returns a pointer to the first occurrence of 
the character c in the string at str. It returns NULL if the char- 
acter is not found. Searching ends with the first null character. 
e = strrchr(str, c) char *str, c; 


This function works like strchr except that the rightmost 
occurrence of the character is sought. 


Character Classification Functions 

The following functions determine whether or not a char- 
acter belongs to a designated class of characters. They return 
true (nonzero) if it does and false (zero) if it does not. 
e isalnum(c) char c; 

oa function determines if c is alphanumeric (A-Z, a-z, 
or 0-9), 


e  isalpha(c) char c; 
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This function determines if c is alphabetic (A-Z or a-z). 
@ = isascii(c) char c; 

This function determines if c is an ASCII character 
(decimal values 0-127). 
e _iscntrl(c) char c; 

This function determines if c is a control character (ASCII 
codes 0-31 or 127). 
e  isdigit(c) char c; 

This function determines if c is a digit (0-9). 
e  isgraph(c) char c; 

This function determines if c is a graphic symbol (ASCII 
codes 33-126). 
e islower(c) char c; 

This function determines if c is a lower-case letter (ASCII 
codes 97-122). 
e isprint(c) char c; 

This function determines if c is a printable character 
(ASCII codes 32-126). Spaces are considered printable. 
e  ispunct(c) char c; 


This function determines if c is a punctuation character 
(all ASCII codes except control characters and alphanumeric 
characters). 


e  isspace(c) char c; 


This function determines if c is a white-space character 
(ASCII SP, HT, VT, CR, LF, or FF). 


@  isupper(c) char c; 


This function determines if c is an upper-case letter 
(ASCII codes 65-90). 


e  isxdigit(c) char c; 


This function determines if c is a hexadecimal digit (0-9, 
A-F, or a-f). 


e  lexorder(cl, c2) char cl, ¢2; 


This Small-C function returns an integer less than, equal 
to, or greater than zero depending on whether cl is lexico- 
graphically less than, equal to, or greater than c2, For mean- 
ingful results, only characters in the ASCII character set 
(0-127 decimai) should be passed. Alphabetics are compared 
in dictionary order, with upper-case letters matching their 
lower-case equivalents. Special characters precede the alpha- 
betics and are themselves preceded by the control characters 
except DEL, which compares highest. 


Character Translation Functions 


e _toascii(c) char c; 


This function returns the ASCII equivalent of c. In sys- 
tems that use the ASCII character set, it merely returns c 
unchanged. This function makes it possible to use the prop- 
erties of the ASCII code set without introducing implementa- 
tion dependencies into programs. 


e  tolower(c) char c; 


This function returns the lower-case equivalent of c if c 
is an upper-case letter; otherwise, it returns c unchanged. 



























RP/M.. 


By the author of Hayden's "CP/M Revealed." 








New resident console processor RCP and new 
resident disk operating system RDOS replace CCP 
and BDOS without TPA size change. 





User 0 files common to all users; user number 
visible in system prompt; file size and user 
assignmentdisplayedby DIR; cross-drive command 
file search; paged TYPE display with selectable 
page size. SUBMIT runs on any drive with multiple 
command files conditionally invoked by CALL. An 
automatic disk flaw processing mechanism isolates 
unuseable sectors. For high capacity disk systems 
RDOS can provide instantaneous directory access 
and delete redundant nondismountable disk logins. 
RPMGEN andGET RPMautomatically self-install RP/M 
on any computer currently running CP/M®2.2. 
Source program assembly listings of RCP and RDOS 
appear in the RP/M user's manual. 


Manual alone $55; manual with RPMGEN.COM and 
GETRPM.COM with utilities on 8" SSSD $75. 
Shipping $5 ($10 nonUS). MC, VISA. 
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P.O. Box G 118 SW First St. 
Warrenton, OR 97146 (503) 861-1765 
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LATTICE: 


C Compilers 


‘‘My personal preferences are Lattice C in the top category for its 
quick compile and execution times, small incremental code, best 
documentation and consistent reliability; ...” 

BYTE AUG. 1983 

R: Phraner 


‘programs are compiled faster by the Lattice C compiler, and it 
produces programs that run faster than any other C compiler avail- 
able for PC-DOS.”’ 

PC MAGAZINE JULY 1983 

H. Hinsch 


‘Microsoft chose Lattice C both because of the quality of code 
generated and because Lattice C was designed to work with 
Microsoft’s LINK program.” 

PC MAGAZINE OCT. 1983 

D. Clapp 


‘Lattice is both the most comprehensive and the best documented of 
the compilers. In general it performed best in the benchmark tests.” 
PERSONAL COMPUTER AGE NOV 1983 
F. Wilson 


“This C compiler produces good tight-running programs and pro- 
vides a sound practical alternative to Pascal.”’ 

SOFTALK AUG 1983 

P. Norton 
the Lattice compiler is a sophisticated, high-performance pack- 
age that appears to be well-suited for development of major applica- 
tion programs.”’ 

BYTE AUG 1983 

Houston, Brodrick, Kent 


To order, or for further information 
on the LATTICE family of compilers, call or write: 


a LATTICE, INC. 


P.O. Box 3072 
Glen Ellyn, IL 60138 
(312) 858-7950 TWX 910-291-2190 





ORI 
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e  toupper(c) char c; 


This function returns the upper-case equivalent of c if c 
is a lower-case letter; otherwise, it returns c unchanged. 


Mathematical Functions 


e abs(nbr) int nbr; 
This function returns the absolute value of nbr. 


e  sign(nbr) int nbr; 
This function returns -1, 0, or +1, depending on whether 
nbr is less than, equal to, or greater than zero. 


Program-Control Functions 


e calloc(nbr, sz) int nbr, sz; 

This function allocates nbr*sz bytes of zeroed memory. 
It returns the address of the memory block on success and 
zero Otherwise. 


e malloc(nbr) int nbr; 


This function allocates nbr bytes of uninitialized memory. 
It returns the address of the memory block on success and 
zero otherwise. 


e  avail(abort) int abort; 


This Small-C function returns the number of bytes of 
free memory that are available between the program and the 
stack. It also checks to see whether the stack overlaps allo- 
cated memory; if so and if abort is not zero, the program is 
aborted, and the letter ‘‘S” is displayed on the console to 
indicate that a stack error has occurred. If abort is zero, how- 
ever, avail returns zero to the caller. This function makes it 
possible to make full use of all available memory, but care 
should be taken to leave enough space for the stack to use. 


e free(addr) char *addr; (alias cfree) 


This function frees up a block of allocated memory begin- 
ning at addr. It returns addr on success and NULL otherwise. 
It is necessary to free memory in the reverse order from which 
it was allocated. Freeing memory that was allocated before 
opening a file should be avoided since the open function 
dynamically allocates buffer and FCB space. You should not 
assume that closing a file relinquishes its space. 


*  getarg(nbr, str, sz, argc, argv) 
char *str; int nbr, sz, argc, * argv; 

This Small-C function locates the command-line argu- 
ment indicated by nbr, moves it (null-terminated) to the 
String str of maximum size sz, and returns the length of the 
field obtained. Arge and argv must be the same values that are 
provided to the function main when the program is started. If 
nbr is zero, the program name is requested; if it is one, the first 
argument following the program name is requested; and so on. 
Because CP/M does not deliver the program name to a pro- 
gram, an asterisk is substituted in its place. If no argument 


corresponds to nbr, getarg puts a null byte at str and returns 
EOF. 


e poll(pause) int pause; 

This Small-C function polls the console for operator 
input. If no input is pending, zero is returned. If a character is 
waiting, the value of pause determines what happens. If pause 
is zero, the character is returned immediately. If pause is not 
zero and the character is a control-S, there is.a pause in pro- 
gram execution; when the next character is entered from the 
keyboard, zero is returned to the caller. If the character is a 
control-C, program execution is terminated. All other char- 
acters are returned to the caller immediately. 


e  exit(errcode) int errcode; (alias abort) 


This function closes all open files and returns to the oper- 
ating system. If errcode is not zero, it is written to the con- 
sole: a program that exits with a control-G (bell), for instance, 
would sound the console beeper. 


Availability 

As with Version 2, copies of this implementation of Small- 
C are available for $25 (add $3 for overseas postage) in 8 -inch, 
SSSD and NorthStar CP/M formats. There is no restriction on 
noncommercial distribution. A package of software tools written 
in Small-C is also available for $35. The Small-C Handbook may 
be obtained for $14.95. Inquiries about any of these items 
Should be addressed to James Hendrix. For people interested 
in other formats and adaptations, James Hendrix is willing to act 
as a clearing house as long as the burden does not become too 
great. Please include a self-addressed, stamped envelope with 
your inquiry. 


+ 


Conclusion 


No doubt the Small-C compiler and its library will con- 
tinue to develop as more and more people with access to the 
source code take an interest in it and report their develop- 
ments. Some obvious areas for improvement in the library are: 


(1) A better memory allocation scheme that permits alloca- 
tion and deallocation operations to be performed in any 
order. 


(2) Adapting this implementation to other CPUs and oper- 
ating systems. This library should be especially easy to 
port to other environments because it is written in C and 
the logic seems easy to follow. 


(3) Improvements in efficiency. No doubt this code can be 
made smaller and faster in many ways. We would hope, 
however, that such efforts would not obscure the sim- 
plicity and transparency of the logic. 


We would like to express our appreciation to Ron Cain, 
who started the ball rolling in 1980, and to Dr. Dobb’s for 
its continued support of Small-C. 


BB 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 195. 





Small-C Library (Text begins on page 50) 
Listing One } 


1 /* 

2 ## STDIO.H -- Standard Small-C Definitions 
3 

4 ## Copyright 1984 L. £, Payne and J. E. Hendrix 
3 #/ 

5 #detine stdin ) 

7 #define stdout 1 

8 #detine stderr 2 

9 #define ERR = (-2) 
19 #detine EQF (-1) 

Ll #define YES 1 
{2 #define NO ) 
13 #define NULL 0 
14 #define CR 13 
(5S #define LF 1) 


OTIGT SI ee Rn 
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16 #detine BELL 7 
17 #define SPACE 


18 #define NEWLINE LF 


H 


/* 


e235! (#454) 


2 *# CLIB.DEF -- Definitions for Small-€ library functions. 


7 
ad 


4 #4 Copyright 1962 


4 


+% 


¥% 


L. —, Payne and J. —. Hendrix 


6 *#% Credits: 
7 #* 1) This library of Small-C functions was produced 


9 
10 
Lt 
12 
13 
14 
ie 
16 
\? 
18 
19 
20 
2! 
22 
z3 
24 
25 


++ 
#% 
4# 
at 
#* 
t% 
#% 
+% 
$¢ 
t% 
et 
## 


#% 7 


+* 
4% 


/* 


—_— 


— 


— 


jointly by: 


Ernest Payne 
1331 W. Whispering Hills Drive 
Tucson, AZ 85704 


and 


James —. Hendrix 
Box 8378 
University, MS 3867/-B378 


The function bdos() is an adaption of 
Gene Cotton's work reported by Ron Cain (DD #48), 


The functions parse(), field(). and redirect() 
are a revision of Jan-Henrik Johansson's setarg() 
(DD] #74), and getara() is a modification of his 
revision of James Hendrix’ function (DDJ #79). 


The standard C functions were obtained from 
"\ Guide to the C Library for UNIX User's 
by C. D. Perez of Bell Laboratories. 


35 *# Detinition of CP/M FCB and additional parameters 


56 


37 #define FCBSIZE 36 
38 define DRIVE 0 
39 #define NAMEQFF i 
4) define NAMEQFF2 16 
4) #define NAMESIZE 8 
42 #define TYPEQFF 9 
A3 define TYPESIZE 3 
44 #define NTSIZE 11 
45 define RRNOFF 33 
44 #define CPMEQF 26 
47 #define BUFSIZE 128 
48 ¢define MAXFILES 10 


*/ 


49 /% 
50 ## CP/M function calls 


yl 


52 #define CLOFIL 16 
53 #define DCONIQ 4 


54 #define DELFIL 19 
55 define FNDFIL 17 
56 #define FNDNXT 18 
57 #define GETPOS 36 
58 #define GOCPM 90 
59 #detine LSTOUT 905 





*/ 


/# size of file control block #/ 
/# CP/M drive designator offset #/ 
/‘* CP/M file name offset #/ 

/* CP/M 2nd file name offset #/ 

/* CP/M file name size #/ 

/* CP/M file type offset #/ 

/* CP/M file type size #/ 

/* CP/M file name & type size #/ 
/* CP/M random record number offset #/ 
/* CP/M end-of-file byte #/ 

/+ size of 1/0 butter #/ 

/* maximum open files */ 


/* close file #/ 
/* direct console i/a #/ 


/* delete file */ 

/* ¢ind first occurrence of a file #/ 
/* ¢ind next occurrence of a file #/ 
/* get number of current sector */ 

/# go to CP/M #/ 

/* list output +#/ 


(Continued on next page) 
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MATA 


SUBROUTINE 
LIBRARY 


Now, a library of Numerical Methods 
Subroutines for use with your FORTRAN 
programs. 


Over sixty subroutines of: 


FUNCTIONS INTERPOLATION 
INTEGRATION LINEAR SYSTEMS 
MATRICES POLYNOMIALS 
NON-LINEAR SYSTEMS DIFFERENTIAL EQ 


Versions available for several FORTRAN 
compilers running under CP/M-80 and MS-DOS 
(PC-DOS). 


Cost. $250. 
Manual available. $25. 


microSUB: MATH 


CP/M and MS-DOS are trademarks of Digital Research Corp 
and MicroSoft Corp respectively 


Circle no. 26 on reader service card. 
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Power 
Speed 


€ Users’ Group 
Supporting All C Users 
Box 287 
Yates Center, KS 66783 


Circle no. 19 on reader service card. 


503/884-3023 


foehn consulting. PO Box 5123. Klamath Falls. OR 97601 











Small-C Library (Listing Continued, text begins on page 50) 
Listing One 


60 tdefine MAKFIL 22 /# make file #/ 28 (+ status of respective file #/ 
bl #define OPNFIL 15 /# open file #/ 29 = device(MAXFILES)] = {CPMCON, CPMCON, CPMCON}, 
62 ¢define FOSEND 35 /# position file to end #/ 30 /# non-disk device assignments */ 
63 #define PUNOQUT 04 /# punch output #/ 31 __mextc(MAXFILES) = (EOF, EOF, EOF}, 
b4 #detine RENAME 23 /# rename file #/ 32 /* pigeonhole for ungetc bytes +/ 
65 #define RDRND 33 /# read sector randomly #/ 33. _fcbptr(MAXFILES], /# FCB pointers for open files #/ 
bo tdefine RDRINP 03 /# reader input #/ 34 = _bufptr(MAXFILES], /# buffer pointers for files #/ 
47 #detine SETDMA 26 /# set dma #/ 3) _chrpos(MAXFILES], /# character position in buffer #/ 
68 #define WRIRND 40 /* write sector randomly +#/ 36 _dirty(MAXFILES]; /# “true* if changed buffer +#/ 
£9 /# 37 
7) #* Device codes 38 char 
71 #/ 39 #_memptr, /* pointer to free memory. #/ 
72 #detine CPMCON DCONIO /# console +/ 49) _argi{l="#"; /* first arg for main #/ 
73 #detine CPMRDR RDRINP /* reader +*/ 41 
74 #define CPMPUN PUNOUT /# punch +#/ 42 /* 
75 #define CPMLST LSTOUT /# list #/ 43 #teeettaeeeteee System-Level Functions ##eteeeeeeeeraeee 
7& /* 44 +/ 
77 ## File status bits 49 
78 #/ Ad /% 
79 #define RDBIT { /*# open for read #/ 47 *# -- Process Command Line, Execute main(), and Exit to CP/M 
BO #define WRTBIT 2 /* open for write #/ 48 #/ 
81 define EOFBIT 4 /# eof condition #/ 49 main() { 
82 tdetine ERRBIT 8 /* error condition #/ 30 parse(); 
B3 /* of  main( cnt, vec); 
84 *# ASCII characters 92 exittd); 
85 #/ ae 
Bo tdetine ABORT 3 34 
87 #define RUB - J /# 3 
88 Kdefine PAUSE {9 J6 ## Parse command line and setup argc and argv. 
89 #define WIPE 24 a7 #/ 
90 #detine DEL 127 98 _parse() { 
3? char *count, #ptr; 

l 60 count = 128; /# CP/M command butfer address #/ 

2 /t | 6f ptr = alloc(count = #count&255, YES); 

3 ## CSYSLIB -- System-Level Library Functions 62 strncpy(ptr, 130, count-1); 

4 + 63 _vec{0J=_arat; /* first arg = "#" #/ 

3 ## Copyright 1984 1. E, Payne and J, €. Hendrix 64 while (#ptr) { 

6 #/ 65 if(isspace(#ptr)) {++ptr: continues) 

} 66 switch(#ptr) ¢ 

8 #include stdio.h b7 case “<': ptr = redirect(ptr, "r", stdin); 

9 #include clib.def 4g continue; 

10 #define NOCCARGC /# no argument count passing #/ 49 case ')'s if(#(ptr+t) == '9') 

11 #define DIR /* compile directory option +/ 70 otr = redirect(ptr+l, "a", stdout): 
12 ri else ptr = redirect(ptr, ‘“w", stdout): 
1S /* 72 continue: 

14 ttteteeeeteeeeteee Svstom Variables teeeteeeeeeeeeeanaee 13 default: if(_cnt < 20) vect_cnt++) = ptr: 

Ly #/ 74 ptr = field(ptr}; 

16 75 } 

17 int 74 } 

18 *_auxsz, /* addr of xsizel] in AUXBUF */ a 

19 # auxef, /* addr of _xeof{) in AUXBUF +/ 78 
20s auxrd, /* addr of xread() in AUXBUF #/ 79 /4 
Bt (# addr of _xwrite() 2 AUNBUF #/ 8) ## Isolate next command-line field, 
a auxtl , /# addr of _xflush() in AUXBUF #/ 81 ¥/ 
23 
24 ~—scnt=i, /‘* arg count for main #/ Beta) Mag oe 
. -vec20], /* arg vectors for main #/ 84 sb Gengacelévtei)-t 
27 _status{MAXFILES) = {RDBIT, WRTBIT, RDBITIWRTBIT), 2 tptr = NULL; : . 

86 return (+#ptr); (Continued on page 64) 


QQ... ee 
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Available now. 


The i of Both Worlds 

(Qit- Per ormance 
CompuPro Hardware | 
with high-performance - —— CP/M 11S] ve) se) =lejej a 5s 


Cromemco Software. 


Cromemco’s MC68000-Z80 CROMIX multi-tasking : —— R THE INTEL 8748/80 es 


operating system with drivers to support CompuPro hardware. 
(requires Cromemco DPU) 











AN NOUNCING SIM48 


e SIM48 allows you to load, trace, execute and save Intel 
8748/8048 software using standard Intel Hex files. 


Minimum configuration: 


DPU - SystemSupport! - Disk] - Interfacer3 or 4 - 192K RAM 


CROMIX with drivers to support minimum configuration $890. 
Special drivers only $295. 


SIM48 allows you to simulate all instruction operations, 
timer/counter operations, |/O operations, interrupt 
processing, reset execution, internal and externai RAM 
and ROM. 


SIM48’s command set includes load, breakpoint, 


assemble, list (disassemble), trace, call and execute 
commands (as seen in DDT and ZSID). 


FEETTTTE TE FEET ETT EP ETT TEE E TET 
The following products gan be added to any 8 or 8-16. bit CROMIX system: 
SCSI hard disk drivers $195. 


15Mb formatted hard disk subsystem $2095. 
30Mb (two drives) $2995. 


MDrive-H drivers $195. 
CompuPro 512K MDrive-H hardware $1695. 
FFFFI FEE EE ETE ETE 7F 


Other drivers i: development... custom inquiries welcome. 
















SIM48 allows you to simulate all software operations of 
the 8748/8048, yet costs 1/20th of an In-Circuit Emulator. 


e SIM48 is CP/M compatible. Supplied on an 8” SSSD 
diskette. 


e SIM22 (for Intel 8021/8022’s) and SIM51 (for Intel 
8751/8051’s) soon to be released. 


SIMMS ees $150.00 SIM48 Manual...... $20.00 












Authorized CempuPro Dealer. 


PuterParts’ 
2004 4th Avenue 
P.O. Box 12339 

Seattle, WA 98111-4339 


Telephone (206) 682-2590 


Plus shipping and handling. 
N.Y. State residents add sales tax. 
Mastercard/Visa 


locical Systems 


6184 TEALL STATION 
SYRACUSE, NY 13217 
(315) 457-9416 


OPEN 
2-6 Tuesday-Saturday 


SIM48, SIM22, and SIMS51 are trademarks of Logical Systems Corporation 


: : CP/M, ZSID. and DDT are trademarks of Digital Research 
*PuterParts” is a registered trademark 


of Katharos Companies 
Additional trademarks: Z80, Zilog: MC68000, Motorola: CROMIX, DPU, Cromemco: 
SystemSupporil, Disk], Interfacer3, -4, MDrive-H, CompuPro. 
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- Girele no. 56 on reader service card. Circle no. 37 on reader service card. 


68000 SINGLE BOARD 
COMPUTER FOR STD BUS 


FEATURES FEATURES 


¢ 8 MHz 68008 - 16-Bit Timer 





Processor - Four Layer PC Board 
¢ 32K On-board - STD Bus Compatible 
Memory Space (three 


¢ Monitor EPROM 
Optional 


ADDITIONAL 
PRODUCTS 


- 6801 P-FORTH SBC 


28-pin JEDEC sockets) 


- One Megabyte 
Address Range 
(non-multiplexed 
address bus) 


- 68681 DUART 





- Dual RS232 Serial ° Y O Cards 7 
|/O Ports - Six Slot Card Cage with 
Integral Power Supply 


¢ TTL Parallel |/O Port 


ENGINEERING §=§ PEOPLELUARE SYSTEMS, INC.  CALLOR WRITE 


SERVICES ALSO 5190 West 76th Street - Minneapolis, Minnesota 55435 


AVAILABLE. 612-831-0827 TWX 9105761735 612-831-0827 


Circle no. 50 on reader service card. 
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DeSmet 
C 


The fastest 
8088 C Compiler 
available 


FULL DEVELOPMENT PACKAGE 
- C Compiler 
- Assembler 
* Linker and Librarian 
* Full-Screen Editor 
* Newsletter for bugs/updates 


SYMBOLIC DEBUGGER 

* Monitor and change variables by 
name using C expressions 

* Multi-Screen support for debugging 
PC graphics and interactive systems 

* Optionally display C source during 
execution 

* Breakpoint by Function and Line # 


COMPLETE IMPLEMENTATION 
* Both 1.0 and 2.0 DOS support 
* Everything in K&R (incl. STDIO) 


* Intel assembler mnemonics 
* Both 8087 and Software Floating Point 


OUTSTANDING PERFORMANCE 
Sieve Benchmark 
COMPILE 4 Sec. RAM — 
22 Sec FDISK 
LINK 6 Sec. RAM — 
34 Sec. FDISK 
RUN 12 Sec. 
SIZE 8192 bytes 


DeSmet C 
Development Package 


To Order Specify: 
Machine 


OS C) MS-DOS O CP/M-86 
Disk 0 8" 05%SS 05% DS 


WARE 


CORPORATION 


P.O. BOX 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


California residents add sales tax. Shipping: U.S. no 
charge, Canada add $5, elsewhere add $15. Checks 
must be on a US Bank and in US Dollars. 
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Smaill-C Library (Listing Continued, text begins on page 50) 


Listing One 


105 
106 
107 
108 
109 
110 
iit 
it2 
ILS 
114 
{15 
116 
{17 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14} 
142 
143 
144 
145 
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} 
+totr: 
} 
return (ptr); 
} 


/* 

## Redirect stdin or stdout. 

+/ 

_redirect(ptr, mode, std) 
char #fn; 
fn = +tptry 
ptr = field(ptr); 
if(_open(tn, mode, std)==ERR) exit(‘’R’); 
return (ptr); 


char *ptr, #mode; int. std: ¢ 


/* 
th ------------ 
+/ 


File Qpen 


/* 
## Open file on specified fd. 
+/ 
_open(tn, mode, ¢d) char #fn, #mode; int fd; { 
char #fcb; 
if('strchr("rwa", #mode)) return (ERR): 
extclfd] = EOF: 
if(_auxef) auxef(fd] = NO; 
if(stremp(fn, "CON: ")==0) ¢ 
GevicelftdJ=CPMCON; status(f#dJ=RDBITIWRTIBIT: return (#d): 
} 
Lf (strcmp (fn,"RDR:")==0) ¢ 
GevicelfdJ=CPMRDR; status{+d]=RDBIT: 
} 
if(stremp(fn, "PUN: ")==0) ¢ 
Gevicelfd]=CPMPUN; status(fd]=WRIBIT; return (4d): 
} 
if(strcap(fn, "LST: ")==0) ¢ 
GevicelfdJ=CPMLST; status(fdJ=WRTBIT; return (fd): 
} 
if(fcb = fcbptr{td]) pad(#cb, NULL, FCBSIZE): 
else ¢ 
if((feb = fcbptrf[td) = 
it ( bufptr(td] = 
return (ERR): 
} 
pad( bufptr(fd), CPMEOF, BUFSIZE): 
Girty(fd] = device(fd] = chrposlfd] = 0; 
#ifdet DIR 
if(fnCi] == ‘s° && ¢nl2] == NULL) ¢ 
pad(fcb, NULL, FCBSIZE): 
pad(fcb+NAMEOFF, ‘?', NTSIZE): 
if(toupper(fn(0]) ‘= ‘X') #fcb = toupper(fn{[0]) - 44: 
_Chrpos{fd) = BUFSIZE; 
eviceltd] = FNDFIL: 
_Status{fd) = RDBIT; 
return (¢d)3 
} 


return (¢d); 


NULL 
NULL) 


_alloc(FCBSIZE, YES)) 
_alloc(BUFSIZE, YES)) 


/* directory file #/ 


ee eaaaaaaaaaaaaaiasaaammaaammammaamamiamamamaaal 


146 
147 
148 
149 
150 
191 
152 
133 
134 
135 
156 
157 
158 
159 
140 
Lal 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
194 
192 
193 
194 
199 
194 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 


tendif 
if(! newfeb(tn,feb)) return (ERR); 
switch(#mode) { 

case ‘ris { 
if(_bdos(OPNFIL,fcb)==255) return (ERR); 
_status(fd] = RDBIT; 
if(_sector(#d, RDRND)) seteot (fd); 
break; 
} 

case ‘wi: { 
if(_bdos(FNDFIL,fcb)'=255) bdos(DELFIL,fcb); 

create: 
if( bdos(MAKFIL,fcb)==255) return (ERR): 
_status(td] = EQFBITIWRTBIT; 
break; 
} 

default: { /* append mode #/ 
if({ bdos(OPNFIL,#cb)==255) goto create: 
_status(fd) = RDBIT; 
cseek(fd, -L, 2): 
while(faetc (fd) '=E0F) ; 
ogres = EQFBIT(WRIBIT; 


) 
if(#(mode+i)=="+') status(fd] ¢= RDBITIWRTBIT: 
return (¢d)3 
} 


/* 
#* Create CP/M file control block from file name. 


## Entry: ¢n = Legal CP/M file name (null terminated) 
+ May be prefixed by letter of drive. 

+# fcb = Pointer to memory space for CP/M cb. 
## Returns the pointer to the fcb. 

*/ 

cnewfcb(fn, fcb) char #fn. #fcby { 


char #¢nptr; 
pad(#cb+1, SPACE, NTSIZE); 
if(#(fn +t) ee ‘s') ¢ 
##cb = toupper(#fn) - 64; 
fnptr = fn + 23 
) 
else fnptr = fn} 
if(#fnptr == NULL) return (NO); 
fnptr = _loadfn(fcb + NAMEQFF, fnptr, NAMESIZE); 
if(#fnptr == '.°) t+#nptr; 
else if(#fnptr) return (NQ); 
fnptr = _loadfn(fcb + TYPEOFF, tnptr, TYPESIZE): 
if(#¢nptr) return (NQ); 
return (YES); 
} 


/* 

## Load into fcb and validate file name. 

+/ 

_loadtn(dest, sour, max) char #dest, #soury int max: ¢ 


whilet#sour && 'strchr("<>.,3s=7#C1]", #sour)) ¢ 
if(max--) #dest++ = toupper (#sour++); 
else break; 
} 
return (sour); 
} 
it 


Lig Shor are = = File Input 


zis 1% 

214 ## Binary-stream input of one byte from fd. 
215 #/ 

216 read(#d) int fd: { 

217 char #buflocs 

218 int ch} 

219 ~=switch (_mode(fd)) ¢ 

220 default: seterr(fd); return (EOF); 

221 case RDBIT: 

222 case RDBITIWRTBIT: 

223 } 

224 =6if ((ch = _nextclfd]) '= EOF) { 

220 _nextc(td] = EOF; 

226 return (ch); 

227 } 

228 switch( devicelfd]) ¢ 

229 /# PUN & LST can't occur since they are write mode #/ 
230 case CPMCON:s return (_conin()); 

231 case CPMRDR: return (_bdos(RDRINP,NULL) ); 
232 default: 


233 if(_auxsz && _auxsz{fd]) return (_auxrd(fd)): 
234 if(_chrposltd]>=BUFSIZE && !_getsec(fd)) 
239 return (EOF); 

236 bufloc = bufptr(ftd] + chrposltdl++; 
23/7 return (#bufloc); 

238 } 

23?) 

240 

241 /* 

242 *# Console character input. 

243 #/ 


244 conin() { 

245 saint chy 

246 while('(ch = bdos(DCONIQ, 255))) ; 

247 = switchich) ¢ 

248 case ABORT: exit(); 

249 case = LF: 

290 case CR: conout(LF); return (_conout(CR)}; 
201 case DEL: ch = RUB; 

202 default: if(ch < 32) { _conout('*’); _conout (ch+64) 3} 
293 else conoutich); 

204 return (ch); 

290 } 

206} 

297 

258 /# 

259 *# Read one sector from fd. 

260 */ 

261 getsec(fd) int fd; { 

262 #ifdef DIR 

263 if(_devicetfd)) ¢ /* directory file #*/ 
264 char #bp, #name, #type, #end; 

2695 bdos(SETDMA, 128); 

264 if((name = bdos(_device(fd], fcbptr(fd])) == 255) ¢ 


267 _seteot (fd); 
268 return (NQ); 
269 } 


270 _devicelfd) = FNDNXT; 
271 name = (name << 5) + (128 + NAMEOFF); 
272 type = name + NAMESIZE; 


273s end = name + NTSIZEs (Continued on next page) 
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LSP 


FOR THE 
IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


@ DATATYPES 
Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 
Machine Language Code 


MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


FUNCTION TYPES 
EXPR/FEXPR/MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


10 SUPPORT 
Multiple Display Windows 
Cursor Control 

All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

.OBJ File Loader 


M@ RUNS UNDER PC-DOS 1.1 or 2.0 
EE SO ae 









































lQLISP 






51%" Diskette 
and Manual $175.00 
Manual Only_———s« $ 30.00 





| q Integral Quality 


P.O. Box 31970 
seattle, Washington 98103-0070 
(206) 527-2918 


Washington State residents add sales tax. 
VISA and MASTERCARD accepted. 
Shipping included for prepaid orders. 
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Smaill-C Library (Listing Continued, text begins on page 50) 
Listing One 


274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
286 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 


299 /* 
#* Binary-Stream output of one byte to fd, 


300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
Sit 
312 
513 
314 
315 
314 
317 
316 
319 
320 
J21 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 


bp = bufptr(fd] + BUFSIZE: 
#--bp = CR; 
while(--end >= name) { /# put filename at end of buffer #/ 
if(*#end == SPACE) continue; 
#--bp = #end; 
iffend == type) #--bp = ‘.°; 
} 
_chrpos(fd] = bp - bufptr(fd); 
return (YES); 
} 


#endit 
if(fflush(fd)) return (NO); 
_advance (fd); 
if( sector(fd, RDRND)) { 


pad( bufptrf(f#d], CPMEQF, BUFSIZE); 
_seteot (td); 

return (NQ); 

} 


return (YES); 


SNE TRS: File Output 


-Write(ch, fd) int ch, fds { 
char #bufloc; 
switch ( mode(fd)) { 


default: seterr(fd); return (EOF); 
case WRIBIT: 

case WRIBITIRDBIT: 

case WRIBITIEOFBIT: 

case WRIBIT‘EQFBITIRDBIT: 

} 


Switch( deviceltd]) ¢ 


/* RDR can’t occur since it is read mode +/ 
case CPMCON: return ( conout(ch)); 
case CPMPUN; 
case CPMLST: bdos( devicelfd], ch); 
break; 
default: 
if(_auxsz && _auxsz(fd]) return (_auxwt(ch, fd)); 
if(_chrposlfd] =BUFSIZE && ! putsec(fd)) return (EOF); 
bufloc = _bufptr(t#d] + chrposltdJ++: 
*bufloc = ch; 
Girtylfd] = YES; 
} 


return (ch); 


#* Console character output, 


_Conout(ch) int ch: ¢ 
_bdos(DCONIC, ch); 
return (ch): 


——— eee 
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333 
394 
259 
336 
397 
358 
359 
360 
361 


} 


[% 


*# Write one sector to fd. 


*/ 
_putsec(fd) int ¢d; ¢ 


if(fflush(¢d)) return (NQ); 


_advance (td); 


pad( bufptr(fd), CPMEQF, BUFSIZE); 


return (YES); 


«a a amit Buffer Service 


#* Advance to next sector. 


*/ 
_advance(fd) int fd; { 
int #rrn; 


rrn = fcbptr(#d] + RRNOFF; 


++(#rrn); 
_chrposffd] = 0: 
} 


[* 


*% Sector 1/0. 


+} 


The PROGRAMMER’S SHO 


362 sector(fd, func) int fd. func; | 


363 
364 
365 
366 
347 
348 
349 
370 
371 
372 
378 
374 
379 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 


int error: 


bdoe(SETDNA, bufptr(fd]): 


error = bdos(func, fcbhptrlfd]); 


bdos(SETDMA, 128); 
_dirtylfd] = NOQ; 
return (error); 


fA AN TERS File Status 


/+ 


#* Return fd's open mode, else NULL. 


¥/ 
_mode(fd) char *#d: ¢ 


if(fd < MAXFILES) return (_status(fd]); 


return (NULL): 
} 


{% 


*# Set eof status for fd and 


## disable future i/o unless writing is allowed, 


*/ 
_seteof (fd) int fd; 4 


_status{fd] ‘= EQFBIT; 


} 


(Continued on next page) 


Changed EYEE 
ihelps: 


Compare, evaluate, find products. GUARANTEES. 


“C" LANGUAGE 


APPLE: AZTEC C-Full, ASM 
8080: BDSC-Fast, popular 
8080: AZTEC C-Full 

Z80: ECOSOFT-Fast, Full 
8086: C86- optimizer, Meg 
8086: Lattice - New1.1&2.0 
Microsoft (Lattice) MSDOS 
Digital Research- Megabyte 8086 
Desmet by CWare-Fast 8086 


Active Trace-debug 8080/86 
MBASIC-80 - MicroSoft 8080 
BASCOM-86 - MicroSoft 8086 
CB-86 - DRI CPM86 
Prof. BASIC PCDOS 
BASIC Dev't System PCDOS 


LIST 


PRICE PRICE 
$199 


150 
199 
250 
395 
600 
500 
350 
109 


ENVIRONMENT 


$ 80 
375 
395 
600 
345 

79 


OUR 


Call 
125 
Call 
225 
Call 
495 


Call 
269 
99 


72 
295 
279 
439 
325 

72 


EDITORS Programming 


BELLESOFT - PASCAL MSDOS 
C Screen with source 8080/86 
EDIX PCDOS 
FINAL WORD 8080/86 
MINCE CPM. PCDOS 
PMATE - powerful CPM 

8086 
CPM, PCDOS 

8086 


VEDIT - full, liked 


* Programmer’s Referral List 
* Compare Products 

* Help find a Publisher 

* Evaluation Literature free 


$245 
NA 
195 
300 
175 
195 
225 
150 
200 


* Dealer’s Inquire 

* Newsletter 

* Rush Order 

* Over 300 products 
* BULLETIN BOARD - 7 PM to 7 AM 617-461-0174 VISA 


Call 
60 
149 
215 
149 
175 
195 
119 
159 


LIST 
PASCAL ENVIRONMENT PRICE 


PASCALMT+86  CPM86/IBM $400 

without SPP CPM80 350 
MS PASCAL 86 MSDOS 350 
SBB PASCAL -great.fast PCDOS 350 
PASCAL 64 -nearlyfull COM64 99 


LANGUAGE LIBRARIES 


C to dBASE interface 8080/86 $125 
C Tools 1- String, Screen PCDOS 
C Tools 2 - OS Interface PCDOS 
C Tools - XOR - Graphics, Screen 
FLOAT87 - Lattice, PL1 PCDOS 
GRAPH GSX-80 CPM80 
HALO PCDOS 
ISAM Access Manager-86 8086 
PHACT - with C PCDOS 
FABS CPM80 
PASCAL TOOLS PCDOS 
SCREEN Display Mgr. 86 8086 
PANEL-86-many PCDOS 
WINDOWS - AMBER PCDOS 


MS FORTRAN-86-Meg MSDOS $350 
SS FORTRAN-86 CPM-86 425 
FORTRAN-80 -'66 decent CPM-80 500 
INTEL FORTRAN-86 IBMPC NA 
DR FORTRAN COMING 
RM FORTRAN COMING 


Call for a catalog, literature, comparisons, prices. 
ALL FORMATS. 


THE PROGRAMMER’S SHOP™ 


908-D Providence Highway, Dedham, MA 02026. 
617-461-0120, Mass: 800-442-8070 


800-421-8006 


OTHER PRODUCTS 


Microsoft ASM-86 MSDOS_ 100 
Microshell improve CPM 8080 150 
IQ LISP- full. 1\OCOOK RAM PCDOS 175 
PLINK-86 - overlays 8086 350 
PL/ 1-86 8086 750 
Prolog - with samples PCDOS NA 
MBP Cobol-86 fast 8086 750 
COBOL - Level |! 8086 1600 
TRACE-86 - debug PCDOS 125 
CODESMITH-86-debug PCDOS 195 


Free Report: PRODUCTIVITY USING MSDOS 


Assume use of compiler and typical editor. What commercial or public domain pro- 
ducts, what techniques improve productivity? ‘‘Productivity with MSDOS”’ is a 


NEW FEATURES 


For MICROSOFT C 


Halo-Graphics $125 
Panel - Screen $315 
PHACT - ISAM $250 
C Tools 1 - String $115 
CTools2-OS Interface  $ 92 
Greenleaf - 200 functions $165 
Others coming 


growing document with some answers. Call to request it. Help improve it. 


Earn $50 credit toward any purchase when we add any description, code, or idea 


received from you. 


SUGGESTED PRODUCTS FOR PRODUCTIVITY 


- Full use of overlays, headers across 2.0 directories. AKA ALIAS $60. 
- Recover erased or damaged files - use Norton Utilities $65 or POWER $139. 


- Improve on DEBUG with Codesmith 86 $135 many breakpoints / windows. Disasm. 
- Analyze execution of any E X E with Profiler for $175. 


- 200 C functions for DOS interface, PC screen, graphics, etc. Greenleaf $165. 


RECENT DISCOVERIES HIGHLIGHTED 


C Helper includes source in C for CP/ M80. 
MSDOS for a DIFF, GREP, Flowcharter, XREF, C 
Beautifier and others. $125. 

Note: all prices subject to change without notice. 
Mention this ad. Some prices are specials. 
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Small-C Library (Listing Continued, text begins on page 50) 


Listing One 


391 /# 

392 #* Clear eof status for ¢d, 

393 #/ 

394 clreof(fd) int fd: { 

395 _status(#d] &= “EQFBIT; 

396} 

397 

598 /+# 

599 ## Set error status for fd. 

400 +#/ 

401 seterr(fd) int fds ¢ 

402 _status(#d] i= ERRBIT; 

403} 

404 

405 /# 

406 #4 ------------ Memory Allocation 

407 */ 

408 

409 /+ 

410 ## Allocate n bytes of (possibly zeroed) memory. 
411 #* Entry: n = Size of the items in bytes, 
412 #* clear = "true" if clearing is desired, 
413 #*# Returns the address of the allocated block of nemory 


414 ** or NULL if the requested amount of space is not available, 


415 #/ 

416 alloc(n, clear) char #n: int clear: { 
417 char #oldptr: 

416 if (mn < avail (YES)) ¢ 

419 if(clear) pad{_memptr, NULL, n); 
420 oldptr = memptr: 

421 femptr += 13 

422 return (oldptr); 

423 } 

424 = return (NULL); 

‘20 } 

426 

427 /+# 

428 #4 ------------ CP/M Interface 



















HEATH. ..OSBORNE...KAYPRO. ..ANY CP/M*-80 


Tired of 16-bit Snobbery? 


C/INDXEBO 





Brings 
UNIX* Power to CP/M*-80 
Features Prices 





CINIX™-80 655 | 
Manual Only 20$ 


Hierarchical Directories 
UNIX*-like Shell 

/O Redirection & Pipes —_— > 
On-Line Documentation Specify Disk Format 
GREP, CAT, LS, CHDIR, etc. Requires 48K CP/M-80 





C/Craft™, Attn: T. Taft 
22 Downing Road, Lexington, MA 02173 
(617) 862-8177 


*UNIX is a trademark of Bell Laboratories 
CP/M ts a trademark of Digital Research 


Circle no. 8 on reader service card. 


429 %/ 

430 

431 /% 

432 **# Issue CP/M function and return result. 

433 *# Entry: c = CP/M function cade (register C) 


434 #t de = CP/M parameter (register DE or &) 
435 ## Returns the CP/M return code (register A) 
436 */ 
437 bdos(c,de) int c,de; ¢ 
438 #asn 
439 pop h shold return address 
44() pop d sload CP/M function parameter 
44 pop b sload CP/M function number 
442 push b ‘restore 
443 push od : the 
444 push =f : stack 
445 call Ps] ;call bdos 
446 AV) h.0 : 
447 mov b sreturn the CP/M response 
448 #endasm 
4490} E agate 
nd Listing One 
Listing Two 
File: ABS.C 
| /# 
2 ## abs -- returns absolute value of nbr 
3 #/ 


4 abs(nbr) int nbry ¢ 
3 ift(nbr <¢ 0) return (-nbr); 


6 return (nbr); 
| Soe | 
File: ATOI.C 
1 #define NOCCARGC /# no argument count passing #/ 
2 /t 
3 ## atoi(s) - convert s to integer. 
4 #/ 
5 atoi(s) char #5; { 
& int sian, n} 
7 while(isspace(#s)) +ts; 
8 sign = 1; 


9 switch(#s) ¢ 

10 case ‘-': sign = -1} 
ii case ‘+'; ++; 

12 } 

is oy 203 


14 «while(isdigit(#s)) n = 10 #n + #544 - ‘O's 
15 return (sign # n)s 
Me 


File: ATOIB.C 


1 #define NOCCARGC /# no argument count passing #/ 
2 /* (Continued on page 70) 





68 


Dr. Dobb’s Journal, May 1984 















do for assembly language what 
RATFOR does for FORTRAN 
but emits 
OPTIMALLY DENSE code. 
SAL/8X includes console I/O 


| a primitives which trivialize the task of 


writing complex interactive user 
interfaces. Improves programmer 
productivity by a factor of two and 
program maintainability by an order 
of magnitude. 
Extensively documented, available 
___ forall CP/ Mcompatible disk formats. 
SAL/80 version 2.1, $59.00, requires 
64K and MAC or RMAC. 
CALIFORNIA RESIDENTS ADD 6% SALES TAX. 
PROTOOLS® 
“Software Tools horthe Professional’ 
24225 Summerhill Avenue 
Los Altos, CA 94022 
(415) 948-8007 
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Real-World 
Applications 


Are you interested in: 






eMeasurement and control? 
eHardware construction? 
Optoelectronics? 
eInterfacing to external 
devices? 
Low cost robotics? 
eStepper motors? 
eKEPROMs? 











The Computer Journal 


is a magazine for those who interface, 
build, and apply micros. Subscription 
price $24/year in the U.S. (12 issues). 


| PO Box 1697D Kalispell MT 59903 
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cp/hi22 INTRCE a Ne 
ale i ee 


NEW version for 1984! 


eEnables programs written for Digital Research 
CP/M 2.2 to run under Cromemco CDOS and 
vice versa. INTRCEPT release 3 automatically 
recognizes the host system, and emulates 
CP/M 2.2 if the host is CDOS, or emulates 
CDOS if the host is CP/M 2.2. 
¢ No programming, delivered ready-to-run. 
¢ Customizable...ccomes with CDOS emulator 
source, CP/M 2.2 emulator source optional. 
e Z8O assembly language, no program or 
operating system modifications. 
$150 w/CDOS emulator source 
$250 w/CDOS & CP/M emulator source 


8” SSSD, inquire about 5%” 
add $3 shipping, add 6% tax in CA 
VISA, MC,check 






microSystems 


16609 Sagewood Lane 
Poway, California 92064 
(619) 693-1022 
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~ SAL /80° ona SAL/86" 








80 CHARACTER VIDEO BOARD 


e WORDSTAR/dBASE II OPTION 
e TYPE AHEAD KEYBOARD BUFFER 


¢ 25 LINE NON-SCROLL OPTION 

e Z80 CPU and 8275 CRTC ~~ S-100 

e CHARACTER GRAPHICS 

e ADAPTABLE SOFTWARE 

e ORDER ASSEMBLED & TESTED OR 
PRE-SOLDERED (ADD YOUR IC’s) 


VDB—A2 bare board from $49.50 


Simpliway PRODUCTS CO. 
(312-359-7337) 
P.O. BOX 601, Hoffman Estates, IL 60195 


add $3.00 S&H, 3% for Visa or Mastercard 
Illinois Res. Add 6% Sales Tax 


WORDSTAR is a trademark of MicroPro INTERN’L CORP. 


dBASE is a trademark of ASHTON-TATE CORP. 
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CGRAPH 


DEVICE INDEPENDENT 
GRAPHICS SOFTWARE 


¢ Vectors 
¢ Character generator 
¢ Windowing and clipping 
¢ Re-entrant and re-interruptible 
* Multiple simultaneous windows 


Graphics programs independent of physi- 
cal display, drives many displays at once. 
Completely documented in clear English 
with examples. Typical device drivers pro- 
vided for hardware, including EPSON print- 
ers. Shipped as C SOURCE CODE on 8” 
SSSD CP/M or 54” MS-DOS disk. Specify 
standard (K&R) or BDS C version. Ask for 
availability for other operating systems or 
media. Send check for $49.95 to 


Systems Guild Inc. 
P.O. Box 1085, Cambridge, MA 02142 
617-451-8479 
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SMALL-C 2.0 


for 


THE IBM PERSONAL COMPUTER 
and 
MS-DOS COMPATIBLE SYSTEMS 


A large subset of C, packed from argc to 
xtoi () with features, including 


1/0 redirection, compilation by parts, peephole optimization, 
assembly language interface, conditional compilation, 
switch/case/default, command line support, completion codes, 
initialization of global variables, data types-char, int, 

pointers, one-dimensional arrays, and externals 


Complete source code for the compiler and 
libraries plus a 22 page user manual are 
included. 


Requires: 
IBM PC assembler, ASM.EXE, or equivalent 
IBM PC-DOS 2.0, 2.1 or MS-DOS 2.0 
96K memory and a SS Disk Drive 


Send $35 check or money order to 


The Coriolis Company 

P.O. Box 76 

Clinton Corners, NY 12514 

(NY residents please add 5% for sales tax.) 


Executes sieve benchmark in 35 seconds! 
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FORTH 


ib AND 





Vol. 2, 1984: 

Forth Machines; 64K + Addressing; 
Image Processing; Astronomy. 
Subscriptions 
Corporate/Institutional $100. 
Individual $40. 

Back issues: Vol. 1, 1983, 
Robotics; Data Structures. $30. 
Outside N. America add airmail: 
Vol. 2 $20, Vol. 1 $10. 

Checks in US funds on a US bank 
payable to: 

Journal of Forth Application & Research, 
PO Box 27686, Rochester, NY 14627 USA. 


A Publication of 
The Institute for Applied Forth Research 
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For S100 Bus Model 256KM 


256K/1 MEG Byte Dynamic RAM 
256K with 64K DRAMS $759 
@ 256K/1 mega Byte using 64K or 256K DRAMS @ 
8/16b Data @ 24b Address @ Parity per Byte @ 175 
nsec Access Time @ will run Z80/Z8000 to 6 mhz, 
8086, 80186, 68000 to 8 mhz without wait states @ 
transparent refresh, unlimited DMA. 


Other Boards for S-100 Bus Available. 


S.C. DIGITAL INC. 
1240 N. Highland Ave. Suite #4 
Aurora, Illinois 60506 
Phone: (312) 897-7749 
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Micro-Math ™ Only $69 


Mathematical programs for the 6800/6809/ 
8080/8085 (Z80 compatible) microprocessors. 
Source code in standard assembler mnemon- 
ics. These 8'’2x11’’ program books include 
full documentation and descriptions for: 
Fixed/Floating Point Arithmetic, Data Con- 
version/Manipulation, Square Root, Loga- 
rithms, Exponentiation, Trigonometric/ 
Hyperbolic functions including inverses, and 
more. 


ORDER: *6800 (90 pages) $39 + $3 s/h 
*transcendentals not included 
6809 (530 pages) $69 + $5 s/h 
8080 (580 pages) $69 + $5 s/h 
Send check or money order. WA residents 
must add 7.8% to base price. 


WANT MORE INFO: Send $2 for 10-page brochure. 


Micro-Math is distributed under copyright. Fee re- 
quired for right to distribute Micro-Math based prod- 
ucts in machine form. 
F.N. Vitaljic Co. 
514-13th St., Bellingham, WA 98225 
(206) 733-3896 








Multiuser/Multitasking 
for 8080, Z80, 8086 


Industrial /3 
Strength 


FORTH 


TaskFORTH.. 
The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 


LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 


vy Unlimited number of tasks 


vx Multiple thread dictionary, 
superfast compilation 


vv Novice Programmer 
Protection Packaget™ 


yx Diagnostic tools, quick and 
simple debugging 


% Starting FORTH, FORTH-79, 
FORTH-83 compatible 


vy Screen and serial editor, 
easy program generation 


yx Hierarchical file system with 
data base management 


* Starter package $250. Full package $395. Single 
user and commercial licenses available. 


lf you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
lf you are a beginning FORTH 
programmer, this will get you 
started right, and quickly too! 


Available on 8 inch disk 
under CP/M 2.2 or greater 
also 
various 5%’’ formats 
and other operating systems 


FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 


DEALER am 
INQUIRES VISA’ 
INVITED 


Ene | en eed 


[ master charge} 





Shaw Laboratories, Ltd. 
24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 
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Small-C Library (Listing Continued, text begins on page 50) 
Listing Two 


3 ## atoib(s,b) - Convert s to “unsigned” integer in base bd. 
4 + NOTE: This is a non-standard function. 

a 4/ 

6 atoib(s, b) char #5; int b; ¢ 

7 int n, digits 

B on = Of 

9 while(isspace(#s)) ++s; 

10s while((digit = (127 & #s++)) d= “Q') { 


Lt if(digit >= ‘a’) digit -= 87; 
12 else if(digit >= ‘A‘) digit -= 55; 
13 else digit -= ‘0°; 


{4 if(digit >= b) breaks 
i) h=b#n + digit; 


16 } 

17s return (n); 
ig. 3 

19 


File: AUXBUF.C 


1 édefine NOCCARGC /# no argument count passing #/ 

2 #include stdio.h 

3 #include clib.def 

4 extern int *_auxsz, #_auxef, _auxrd, _auxwt, auxfl, 

q _status(]; 

6 /# 

7 ## This module is loaded with a program only if auxbuft() 

8 ## is called. It links to _open(), -read(), _write(), and 

9 ## ¢flush() through _auxsz, auxef, auxrd, _auxwt, and _auxfl 
10 ## in CSYSLIB, This technique reduces the overhead for 

11 ## programas which don't use auxiliary buffering. Presumably, 
{2 ## if there is enough memory for extra buffering, there is” 
13 ## room to spare for this overhead too. A bug in some 

14 #* versions of Small-C between 2.0 and 2.1 may cause the calls 
15 ## to _auxrd, _auxwt, and auxfl in _read(), _write(), and 

16 ## ftlush(), respectively, to produce bad code. The current 
17 ## compiler corrects the problea, 

18 */ 
19 int 
20 «= exsizeCMAXFILES), /# size of buffer +#/ 
21 _xaddr(MAXFILES], /# aux buffer address #/ 
22 =_xmext{MAXFILES], /# address of next byte in buffer #/ 
23 _xend{MAXFILES], /# address of end-of-data in buffer #/ 
24 =_xeotCMAXFILES]; /# true if current buffer ends file #/ 
20 /*# 
26 ## auxbuf -- allocate an auxiliary input buffer for fd 
27 ## ¢d = file descriptor of an open file 
2B ## size = size of buffer to be allocated 
29 ## Returns NULL on success, else ERR, 
30 ## Note: Ungetc() still works. 


Si ## A 2nd call returns ERR, but has no effect. 

32 ## If ¢d igs a device, buffer is allocated but ignored, 
33 #4 Buffer stays allocated when fd is closed. 

34 #4 Do not mix reads and writes or perform seeks on fd, 
35 #/ 

36 auxbuf(fd, size) int fd; char #size; { /# fake unsigned #/ 
37 if(!_mode(fd) ti 'size it avail(NO) < size {i _xsizelfd)) 


38 return (ERR); 
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39 _xaddr(#d] = _xnext{fd] = _xend([fd] = malloc(size); 

40 _auxef = _xeof; /* tell _open() where xeofl) is #/ 
41 _auxrd = xread; /# tell _read() where xread() is #/ 
42 _auxwt = _xwrite; 
43 _auxsz = _xsize; 
44 __auxfl = _xflush; 
45 _xsizeltd] = size; 
46 return (NULL); 
47} 


/* tell both where xsizel] is #/ 


49 /# 

30 ## Fill buffer if necessary, and return next byte. 

Si #/ 

o2 _xread(fd) int #d; ¢ 

93 char #ptr; 

34 =while(YES) ¢ 

ah ptr = xnextlfd); 

56 if(ptr < _xend(fd)) {++_xnextlid); return (#ptr);) 


a7 if(_xeoflt#d]) {_seteof(td); return (EOF)s} 


38 _auxsz = NULL; /# avoid recursive loop #/ 
19 _xend(#d] = xaddr[#d] 


60 + read(fd, xnext(f#dl= xaddr(fd)], xsizelfd)); 


61 _aUx82 = _x8ize} /* restore auxsz #/ 
62 if(feo¢(fd)) ¢_xeoflfd] = YES; clreot(fd);} 
63 } 













© COMPUTER RESOURCES 


*** EASY TO USE*** 
Macro Programs for 





We have been using and working with Spellbinder 
(Eaglewriter) on the Eagle Computers since late 1981. 
Our primary business is Real Estate investment and 
development. We use computers extensively in the 
day-to-day operation of our business and have devel- 
oped a number of programs which we find useful. 


/* tell _write() where xwrite() is #/ 


/* tell ¢flush() where _xflush() is #/ 
/# tell _read() that #d has aux buf #/ 


bb /# 

67 ## Eapty buffer if necessary, and store ch in buffer. 
68 #/ 

69 xwrite(ch, fd) int ch, fd; ¢ 

70s char #ptr; 

71 while(YES) { 

72 ptr = xnextlfd); 

73 if(ptr < (_xaddr(fd] + xsizeltd))) 

74 {tptr = chy ++ _xnext(fd); return (ch);} 
79 if(_xflush(td)) return (EOF); 

76 } 

ONT 


79 /# 

80 *# Flush aux buffer to file. 

81 #/ 

82 xflush(#d) int fds ¢ 

83 inti, J; 

84 i = xnextlfd] - _xaddrltd); 

85 _auxsz = NULL; /# avoid recursive loop #/ 
86 j = write(fd, _xnext(fd]=_xaddr(fd], i); 
87 _auxs2 = xsize; /# restore auxsz #/ 
BB Oifti '= j) return (EOF); 

89 return (NULL); 

9 } 


(Continued on next page) 


























We recently formed a software development and mar- 


promote and market these programs, most being en- 
hancements and macro programs running under Spell 
binder. Spellbinder’s macro programming language 
M-Speak is extremely 
one of the best kept “secrets’’ in the world of micro 
computers. We have a number of macro programs for 
the end user, a number of utilities for the programmer, 
and for those who want a more or less organized in- 
struction set for M-Speak, our head programmer has 
compiled his personal notes into a booklet which the 
M-Speak user should find very useful. It can be pur- 
chased for $10.00. Send for our complete listing. 


P.O. Box 1206 Kamuela, Hawaii 96743 
(808) 885-7905 


=) 
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uter Resources of Waimea, to 






versatile and in our opinion is 
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Small-C Libra FY (Listing Continued, text begins on page 50) 


Listing Two 


File: AVAIL.C 


1 #detine NOCCARGC /# no argument count passing #/ 

2 extern char *_memptrs 

3 /* 

4 #4 Return the number of bytes of available memory. 
2 ## In case of a stack overflow condition, if ‘abort 
6 ## is non-zero the program aborts with an ‘S‘ clue, 
7 ** otherwise zero is returned, 

B */ 

9 avail(abort) int abort; { 

10 char x; 

11 if (—_x < _memptr) { 

12 L¢(abort) exit(’M'); 

13 return (0); 


é 


14 } 

15 return (&x - _meaptr); 
5 eae 

17 


File: CALLOC.C 
1 #define NOCCARGC /* no argument count passing #/ 
2 #include stdio.h 


BDS C 


The fastest CP/M-80 C 
compiler available today 


Version 1.5 contains some nifty improvements: 

The unscrambled, comprehensive new User’s Guide 
comes complete with tutorials, hints, error message 
explanations and an index. 

The CDB symbolic debugger is a valuable new tool, 
written in C and included in source form. Debug with 
it, and /earn from it. 

Hard disk users: You can finally organize your file di- 
rectories sensibly. During compilation, take advantage 
of the new path searching ability for all compiler/linker 
system files. And at run-time, the enhanced file |/O 
mechanism recognizes user numbers as part of sim- 
ple filenames, so you can manipulate files located any- 
where on your system. 


(Bnsc 


BDS C’s powerful original features include dynamic 
overlays, full library and run-time package source 
code (to allow customized run-time environments, 
such as for execution in ROM), plenty of both utilitar- 
ian and recreational sample programs, and speed. 
BDS C takes less time to compile and link programs 
than any other C compiler around. And the execution 
speed of that compiled code is typically lightning fast, 
as the Sieve of Eratosthenes benchmark illustrates. 
(See the January 1983 BYTE, pg. 303). 


BD Software 8” SSSD format, $150 
P.O. Box 9 Free shipping on pre-paid orders 
Brighton, MA 02135 Call or write for availability on 
(617) 782-0836 other disk formats 
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3 /t 

4 ## Cleared-memory allocation of n items of size bytes. 
D ## 0 = Nuaber of items to allocate space for. 

6 #* size = Size of the items in bytes. 

7 #* Returns the address of the allocated block, 

8 ## else NULL for failure. 

9 #/ 

10 calloc(n, size) char #n, #size; { 

tis return (_alloc(n#size, YES)); 

a 


File: CLEARERR.C 


1 #define NOCCARGC /# no arg count passing #/ 
2 #include stdio.h 

3 #include clib.de¢ 

4 extern int status{); 

Q /# 

6 #*# Clear error status for fd. 

a 

8 clearerr(td) int #d; ¢ 

9 if(_mode(fd)) _status{#d] &= “ERRBIT; 


Break Through the 
64K Barrier! 


FORTH-32™ lets you use up to one megabyte 
of memory for programming. A Complete 
Development System! Fully Compatible 
Software and 8087 Floating Point Extensions. 


Call today toll-free or 


contact a participating 
Computerland store. 


800-558-8088 


Quest Research, Inc. 


303 Williams Ave. 
Huntsville, AL 35801 
(205) 533-9405 


Now available for the IBM PC, PC-XT, COMPAQ, COLUMBIA MPC, 
and other PC compatibles! 


IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM, COMPAQ, Columbia Data Products, and Quest Research, respectively. 
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File: CSEEK.C 


1 #define NOCCARGC /# no argument count passing #/ 

2 include stdio.h 

3 #include clib.det 

4 extern int fcbptr(], chrpos(), _nextcll; 

5 /# 

6 ## Position fd to the 128-byte record indicated by 

7 ## "offset" relative to the point indicated by “base." 
8 #4 


9 #4 BASE OFFSET-RELATIVE-T0 

10 ## 0 first record 

11 #4 1 current record 

12 ## 2 end of file (last record + 1) 
13 #4 

14 #4 Returns NULL on success, else EOF. 

15 #/ 


16 cseek(fd, offset, base) int fd, offset, base; { 

17s int oldrrn, #rrn; 

18 if({!_mode(fd) { isatty(fd) 1] #flush(fd)) return (EOF); 
19 ren = ¢cbptrf[fd] + RRNOFF; 

20 = oldrrn ® #rrnj 

21 switch (base) ¢ 

22 case 2: bdos(POSEND, fcbptr{fd]); 

23 case 1: #rrn += offset; 


24 break; 

25 case 0: #rrn = offset; 
26 break; 

27 default: return (EOF); 
28 } 


29 «= if(_sector(#d, RDRND)) { 
30 trrn = aldrrn; 

3 return (EOF); 

32 } 

33. __chrposlfd] = 0; 

34) mextclfd] = EOF; 

35) eclreot (fd); 

36) return (NULL); 

7} 


File: CTELL.C 


1 #define NOCCARGC /* no arg count passing +/ 
2 #include stdio.h 

3 #include clib.def 

4 extern int _fcbptr{], _chrposl); 

D /t 

6 ## Return offset to current {28-byte record, 
7 #/ 

B ctellifd) int fd; ¢ 

9 int #rrns3 
10 if (!_mode(fd) ti isatty(#d)) return (-1); 
liso rrn=_¢cbptr{ fd] +RRNOFF; 
12 return (#rrn); 
See ie 
14 /# 
15 ## Return offset to next character in current buffer. 
16 #/ 
17 ctellc(fd) int fds ¢ 


(Continued on next page) 
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Everyone from 
Commodore to 

IBM User Will Want 
This Remarkable 
Guide to Creating 
User- Oriented 
Software 





Paul Heckel feels that to be “friendly? 
software should be visual, interactive, 
and above all, communicative. He first 
summons up the techniques of the great 
masters of communication in film, and 
of painters like Pablo Picasso and writers 
like Mark Twain. He then adds techniques 
of his own developed through years of 
successful software design, including pro- 
grams for the Craig Language Translator 
and the all-new Viewdex™ system for the 
Epson HX-20. The result is a free-wheeling 
guide that is as delightful and surprising 
to read as it is easy and practical to use. 
The Elements of Friendly Software 
Design explains: , 

@ The thirty principles of friendly 
software design 

@ How filmmakers communication 
techniques can be used to make software 
design “friendly” 

@ Visual thinking as a key to design 

@ Planing for prototyping and revision 


@ Factors that determine user 
acceptance 


@ Examples of excellence—why VisiCalc 
is So successful 
@ Seven traps that snag even the most 
experienced designers 
“Unique and indispensable; by far 
the most important and practical 
book on the subject” 
—Larry Tesler, Manager, User Interface Design, 
Apple’s Lisa 


Now In Quality Paperback 
> WARNER SOFTWARE 
WARNER BOOKS 


A Warner Communications Company 
To order, send check or money order for $10.20 in U.S.A. or $12.00 in 
Canada (includes postage and handling) to Dept. PAA-X38-040, DD 


Warner Books, 666 Fifth Avenue, New York, NY 10103. Please allow four 
to six weeks for delivery. 
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Bay 


the, professional’s replacement 
for Microsoft L80 


LYNX™ DOES 
EVERYTHING L80™ DOES AND MORE! 


LYNX™ LETS YOU USE ALL AVAILABLE MEMORY. 


You can create COM files that are 10K larger— 
without overlays—by replacing L80 with LYNX. 


LYNX™ IS A FULL OVERLAY LINKER 


Running twice as fast as its nearest competitor, 
LYNX is tree structured, multi-segmented and multi- 
leveled, with automatic or explicit overlay invoca- 
tion. You can run programs that are larger than avail- 
able memory. 


LYNX™ HAS BEEN HELPING MICROSOFT FOR- 
TRAN PROGRAMMERS FOR YEARS—NOW IT IS 
ALSO AVAILABLE FOR MICROSOFT BASIC AND 
AZTEC C.™ 


LYNX™ IS A QUALITY PRODUCT from the same 
company who offers you: 


* GrafTalk, the business graphics package for 
Micros 


¢ GRAPHICS development tools 
¢ 2780/3780, 3270, X.25 communications 
¢ MICRO TO MICRO communications 


Gl REDDING @)OCl? INC. 


2730 High Ridge Road 
Stamford, CT 06903 
(203) 329-8874/Telex. 643351 


$250 


LYNX and GrafTalk are trademarks of Redding Group, Inc. L80 is a trademark of 
Microsoft. AZTEC C is a trademark of MANX Software Systems. 
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Small-C Library 
Listing Two 


(Listing Continued, text begins on page 50) 


18 return ( chrpos(fd)); 
's See, 
20 


File: DTOI.C 


1 #define NOCCARGC /# no argument count passing #/ 
2 #include stdio.h 


3 /# 

4 ## dtoi -- convert signed decimal string to integer nbr 
) ## returns field length, else ERR on error 

6 */ 


7 dtoi(decstr, nbr) char #decstr; int #nbr; { 

8 int len, $3 

9 if ((tdecstr)=='-"') {sels ++decstr:} else s=0: 

10 if ((len=utoi(decstr, nbr))<0) return ERR; 

11 si (#nbr<0) return ERR: 

12 if (s) {*nbr = -#nbr} return +tlen;} else return len; 
ip 


File: EXIT.C 


{ #define NOCCARGC /# no argument count passing */ 
2 #include stdio.h 
3 #include clib. def 

4 /* 

5 ## Close all open files and exit to CP/M. 

6 ## Entry: errcode = Character to be sent to stderr. 
7 #* Returns to CP/M rather than the caller. 

8 #/ 

9 exit(errcode) char errcode; { 

10 int fd; 

11 ifferrcode) _conout (errcode); 

12 for(fd=0; fd < MAXFILES; fclose(fd++)); 

13 _bdos(GOCPM, NULL); 


14} 

15 #asm 

16 abort equ = exit 
{7 entry abort 
18 ¢endasa 


File: FCLOSE.C 


1 #detine NOCCARGC /# no argument count passing *#/ 

2 #include stdio.h 

3 tinclude clib.def 

4 /% 

3 ## Close fd 

6 ## Entry: ¢d = File descriptor for file to be closed. 
7 ## Returns NULL for success, otherwise ERR 

8 #/ 

9 extern int fcbptr{), status{], devicel); 

10 fclose(fd) int fd: ¢ 

Lf sift! mode(fd)) return (ERR); 

12 iftlisatty(fd)) ¢ 

13 if(fflush(fd) ti bdos(CLOFIL, ¢cbptr({#d])==255) 
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14 return (ERR); 7 #/ 


i5 } 8 ferror(fd) int td; { 

16 return (_status(fd]= devicelfdJ=NULL); 9 return (_status(fd] & ERRBIT); 
its 10} > | 
18 


File: FFLUSH.C 


File: FEOF.C { #define NOCCARGC /# no arg count passing #/ 


{ #define NOCCARGC /# no argument count passing #/ 2 #include stdio.h 
2 #include clib.det 3 #include clib.de¢ 
3 extern int _status(); 4 extern status(): 
4 /* ee 
5 *## Test for end-of-tile status. 6 #* Test for error status on fd. 
6 ## Entry: ¢d = file descriptor 7 ## Entry: fd = File descriptor of pertinent file. 
7 ## Returns non-zero if ¢d is at eof, else zero. 8 ## Returns NULL on success, otherwise EOF, 
Q #/ BL 
9 feot(td) int fd; ¢ 10 ftlush(f#d) int fds; ¢ 
10 return (_status(f#d] & EQFBIT); 11 «if (!_mode(fd)) return (ERR); 
te} 12 if(_auxsz && _auxsz(fd) && auxfl(fd)) return (ERR); 
12 13) if ('isatty(fd) && _dirtylfd] && sector (fd, WRTRND)) ¢ 
14 _seterr (fd); 
File: FERROR.C So Seeger 
16 } 
{ ¢define NOCCARGC /# no argument count passing #/ 17s return (NULL); 
2 #include stdio.h 1g} 
3 #include clib.de¢ 19 
4 extern int dirtyl], #_auxsz, _auxfl; 
a /# 


6 ## Write buffer for fd if it has chenoes, 
(Continued on next page) 


























Z80* SINGLE BOARD COMPUTER! 


64K RAM — 80 x 24 VIDEO DISPLAY — FLOPPY DISK CONTROLLER 
RUNS CP/M* 2.2! 





$29.95 | NEW 


(BLANK BOARD WITH 
DATA AND RONM'S.) PRICE 
GROUP SPECIAL: 
BUY 6 FOR $165! 
USES EASY 
TO GET PARTS! 


UNBELIEVABLE LOW PRICE!!! GIANT COMPUTER MANUFACTURER’S SURPLUS! 


Recently Xerox Corp. changed designs on their popular 820° computer. These prime, new, 820-1 PC boards were declared as surplus and sold. Their loss is your gain! 
These boards are 4 layers for lower noise, are solder masked, and have a silk screened component legend. They are absolutely some of the best quality PC boards we 
have seen, and all have passed final vendor QC. Please note, however, these surplus boards were sold by Xerox to us on an AS /S basis and they will not warranty nor 
support this part. 

We provide complete schematics, ROM'S, and parts lists. If you are an EXPERIENCED computer hacker, this board is for you! Remember, these are prime, unused PC 
boards! But since we have no control over the quality of parts used to populate the blank board, we must sell these boards as is, without warranty. You will have to do any 
debugging, if necessary, yourself! 


*CP/M TM OF DIGITAL RESEARCH INC. (CALIF.) 820 TM OF XEROX CORP. Z80 TM OF ZILOG WE ALSO CARRY LS, Z-80, EPROM’S, ETC. SEND FOR FREE CATALOG! 


ADD $2 PER PC BOARD FOR SHIPPING. (USA and Canada) 


i G u ! C R 0 P. 0. Box 280298 Dallas, Texas 75228 
. > (214) 271-5546 ae =| 









vE 
BOARD MEASURES 
11%" x 12%" 


ALL ORDERS WILL BE 
PROCESSED ON A STRICT, 









FIRST COME, FIRST SERVED 
BASIS! ORDER EARLY! 

















TERMS: Orders over $50 add 85¢ insurance. No COD. Tex. Res. Add 6% 
Sales Tax. Subject to prior sale. Foreign orders: US funds only. We 
cannot ship to Mexico. Foreign countries other than Canada add $6 per 
board shipping. 
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Small-C Libra FY (Listing Continued, text begins on page 50) 


Listing Two 


File: FGETC.C 


1 #define NOCCARGC /# no argument count passing */ 
2 #include stdio.h 

3 #include clib.def¢ 

4 extern int chrpos(); 

= He 

6 *## Character-stream input of one character from fd. 
7 ## Entry: fd = File descriptor of pertinent file. 

8 ## Returns the next character on success, else EOF. 
9 +#/ 
10 foetc(fd) int td; ¢ 

Li saint chs 
12 while i) ¢{ 


13 switch(ch = read(fd)) ¢ 


14 default: return (ch); 

15 case CPMEQF: switch( chrpos{#d]) ¢ 

16 default: --_chrpos(fd); 
17 case 0: 

18 case BUFSIZE: 

19 } 

20 _seteot (fd); 

21 return (EOF); 

22 case CR: return (‘\n')3 

23 case LF: /* NOTE: _conin() maps LF -> CR #/ 
24 } 

25 } 

26° 3 

27 tasa 

28 getc equ faetc 

29 entry getc 

30 #endasm 

31 


File: FGETS.C 


1 #define NOCCARGC /# no arg count passing #/ 

2 #include stdio.h 

3 #include clib.de¢ 

4 /% 

S ## Gets an entire string (including its newline 

6 ## terminator) or size-1 characters, whichever coses 

7 ## first. The input is terainated by a null character. 
8 ## Entry: str = Pointer to destination buffer. 

9 tt size = Size of the destination buffer, 
10 ## fd = File descriptor of pertinent file. 

11 ## Returns str on success, else NULL. 

12 #/ 

13 fgets(str, size, fd) char #str; int size, fd; ¢ 

14 return (_gets(str, size, fd, 1)); 

15} 

16 

17 /% 

18 ## Gets an entire string from stdin (excluding its newline 
19 ## terminator) or size-1 characters, whichever cones 
20 ## first. The input is terminated by a null character. 
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21 ## The user buffer must be large enough to hold the data. 
22 ## Entry: str = Pointer to destination buffer. 
23 ## Returns str on success, else NULL. 


24 #/ 


25 gets(str) char #str; { 


26 
27 


return (_gets(str, 327467, stdin, 0)); 
} 


29 _gets(str, size, ¢d, nl) char #stry int size, fd, nl; ¢ 


int backup; 
char #next; 
next = str; 
while(--size > 0) { 
switch (next = fgetc(fd)) ¢ 
case EOF: #next = NULL; 
if(next == str) return (NULL); 
return (str); 
#(next + nl) = NULL; 
return (str); 
case RUB: if(mext > str) backup = 1; else backup = 0; 
goto backout; 
case WIPE: backup = next - str; 
backout: 
if{iscons(fd)) ¢ 
fputs("\b \b\b \b", stderr); 
++81283 
while(backup--) { 
fputs("\b \b", stderr); 
if (#--next <¢ 32) fputs("\b \b", stderr); 
++5178} 
} 
continue; 
} 


case ‘\n': 


default: ++next; 
} 
} 


#next = NULL; 
return (str); 
} 


File: FOPEN.C 


1 #define NOCCARGC /# no arg count passing #/ 
2 #include stdio.h 
3 #include clib.def 


4 /* 
5 ## 


6 ## Entry: fn 


7 #% 
§ ## 
9 #4 
LQ #4 
[1 #4 
12 ## 


Open file indicated by fn. 
= Null-terminated CP/M file name, 
May be prefixed by letter of dirve. 
May be just CON:, RDR:, PUN:, or LST:. 
mode = “a" - append 
*"r" = read 
“w" = write 
+" = append update 


(Continued on page 78) 
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© The first ** Clinic’’ columns 

e The Electric Phone Book 
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Small-C Library (Listing Continued, text begins on page 50) 


Listing Two 


13 ## “r+" - read update 

14 ## "wt" - write update 

15 ## Returns a file descriptor on success, else NULL. 
16 */ 

17 ¢open(#n, mode) char #fn, #mode; ¢ 

18 int td; 

19 #d = 03 /# skip stdin (= error return) #/ 

20 =while(++#d < MAXFILES) { 

21 if(_mode(td) == NULL) ¢ 


22 if(_open(fn, mode, fd)!=ERR) return (fd); 
23 break; 

24 ) 

25 } 

26 return (NULL); 

is ae 

28 


File: FPRINTF.C 


1 #define NOCCARGC 

2 /t 

3 ## Yes, that is correct. Although these functions use an 
4 ## argument count, they do not call functions which need one. 
) #/ 

6 #include stdio.h 

7 /t 

B ## fprinté(fd, ctlstring, arg, arg, ...) - Formatted print. 
9 ## Operates as described by Kernighan & Ritchie. 

10 ## b, c, d, 0, $, U, and x specifications are supported. 
11 ## Note: b (binary) is a non-standard extension. 

12 #/ 

13 fprintf(arge) int argc; ¢ 

14 int #nxtarg; 

15 nxtarg = CCARGC() + karge; 

16 return(_print(#(--nxtarg), --nxtarg)); 

See 

18 

19 /# 

20 ## printf(ctlstring, arg, arg, ...) ~ Formatted print. 
21 ## Operates as described by Kernighan & Ritchie, 

22 ## b, c, d, 0, S, U, and x specifications are supported, 
23 #*# Note: b (binary) is a non-standard extension, 

24 #/ 

25 printf#(argc) int argc; ¢{ 

26 return(_print(stdout, CCARGC() + &argce - 1)); 

Sane 

28 

29 /* 

30 ## print(fd, ctlstring, arg, arg, ...) 

31 ## Called by fprintf() and printf). 

32 #/ 

33 _print(fd, nxtarg) int fd, #nxtarg; ¢ 

34 int arg, left, pad, cc, len, maxchr, width; 

35. so char *ctl, #sptr, str(17); 

36 cc = 03 

37 octl = #nxtarg--; 


38 =o while(#ctl) { 

39 if(#ctl'='Z') {fputcl#ctl++, fd); tees continues) 
40 else ttctl; 

4} if(#ctl2='4') {fputc(#ctl++, fd); ++ecs continues} 
42 if(#ctl2=’~') {left = 15 t+ctls} else left = 0; 

43 if(#ctl=='0') pad = ‘0°; else pad = °°; 

44 if(isdigit(#ctl)) { 

45 width = atoi(ctl++); 

4 while(isdigit(#ctl)) +tctl; 

47 } 

48 else width = 0; 

49 if(*ctlas‘,') ¢ 


50 maxchr = atoi(+tctl); 
J! while(isdigit(#ctl)) ¢+#ctl; 
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33 else maxchr = 0; 
04 arg = #nxtarg--} 
a9 sptr = str} 

16 switch(#ctlt+) ¢ 


a7 case ‘c‘: str{[0] = arg; strf{l] = NULL; break; 
38 case ‘s': ptr = arg} break; 

39 case ‘d': itoa(arg,str); break; 

60) case ‘b': itoab(arg,str,2); breaks 

bt case ‘o': itoab(arg,str,8); break; 

62 case ‘u's: itoab(arg,str,10); break; 

43 case ‘x’: itoab(arg,str,16): break; 

64 default: return (cc); 

45 } 


66 len = strlen(sptr); 

67 if(maxchr && maxchr<len) len = maxchr; 

48 if(width>len) width = width - len; else width = 0: 
69 if('lett) while(width--) {fputc(pad, fd); +tcecy) 
70 while(len--) {fputc(#sptrt+,fd); +#cc3 } 

7h if(left) while(width--) {fputc(pad,fd); ++#ccs} 

72 } 

73° return(ce); 

. oD. 


File: FPUTC.C 


1 #define NOCCARGC /# no arg count passing #/ 

2 #include stdio.h 

3 #include clib. deft 

4 extern int status); 

a /t 

6 ## Character-stream output of a character to fd. 
7 ## Entry: ch = Character to write. 

8 ## fd = File descriptor of perinent file. 
9 ## Returns character written on success, else EOF. 
10 #/ 
11 fputc(ch, fd) int ch, fd; ¢ 
12 switch(ch) ¢ 
13 case EOF: _write(CPMEOF, fd); break; 


(Continued on page 80) 
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DISK FORMAT 
Address? CONVERSION SERVICES 


CDE now offers disk conversions from one format 
to another. We can even convert text files from 
MS-DOS to CP/M and back. 

The cost? Only $7.00 per disk, and we supply 
the destination disk! ($5.00 if you supply the 
disk.) Additional copies of the same disk are only 
$5.00 each ($3.50 on your disk). If asecond disk 
is required to hold down-loaded data, it is $2.00 
additional. VISA and MasterCard accepted. 

Formats available include 8’ SSSD and the fol- 
lowing 5” formats: 

































Staple your label here. 





















To change your address, attach your address label from 
the cover of the magazine to this coupon and indicate 




































your new address below. Kaypro ACCESS 

Osborne LOBO MAX-80 
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Morrow IMS-5000 

NEC PC-8001A EPSON QxX-10 
fe ae Apt. # Zenith Z-90 Sanyo 

Heath with Magnolia NEC PC-8801 
Nae NS digs ane eete des Soi RS ee ote es ne Superbrain Zenith Z-100 
City State Cromemco Datavue 

DEC VT-180 MAGIC Computer 





Zip 
Mail to: DDJ, 2464 Embarcadero Way, Palo Alto, CA 94303 


Write for our complete catalogue. 
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Model 7128-L1,L2,L2A . $239 .00 


DEVELOPMENT HARDWARE/SOFTWARE ot MideL FAIR ks | $329 .00 
DREPGX or DRSPGX $75.00 

: or bal bo 
HIGH PERFORMANCE, COST RATIO f Cross Assemblers ..... $200.00 
j XASM (for MSDOS) 2 $250.00 

/ raser DE-4.). o:. « 78. 

INC. (601) 467-8048 RS752 Cableg soso. $ 30.00 

8751 adapter $174.00 


EPROM PROGRAMMER .. ff  3888e00 


S/SS- adapter: 3.2.5... $135.00 
48 Family adapter.... $ 98.00 
Compatible w/all Rs 232 serial interface port * Auto $879 stand alone 
select baud rate * With or without handshaking * MODEL 7956 
Bidirectional Xon/Xoff and CTS/DTR supported * 


















Read pin compatible ROMS * No personality $549 
modules * Intel, Motorola. MCS86. Hex formats * ert Pe 


Split facility for 16 bit data paths * Read, program, 
formatted list commands * Interrupt riven, 
program and verify real time while 
sending data * Program single byte, 
block, or whole EPROM * Intelligent 
diagnostics discern bad and erasable 
















MODEL 7228 


in one minute! 


EPROM * Verify erasure and compare MODEL 7986 (came EPROM PROGRAMMER 
commands * Busy light * Complete GANG PROGRAMMER All features of Model 7128 plus _ 
w/Textool zero insertion force socket Intelligent algorithm. Stand alone, , Auto Select Baud _, super fast adaptive 
and integral 120 VAC power (240 copies eight EPROMS at a time. £ / ‘ programming algorithms, low profile 
VAC/S0Hz available) With RS-232 option $1099. eens er seat ciitie Seameeel aluminum enclosure. Programs 2764 


DR Utility Package allows communica- 
tion with 7128, 7228, and 7956 $549 A } 
programmers from the CP/M com- MODEL gee See eA 
mand line. Source Code is provided. 7316 f 
PGX utility partes allows the same é 
thing, but will also allow you to specify 
a range of addresses to send to the 
programmer, Verify, set the Eprom 


type. 


MODEL 7316 PAL PROGRAMMER &| 
Programs all series 20 PALS. Software 
included for compiling PAL source 





codes. 
: 1 2 
Software Available for CPM, ISIS, MODEL 7128 EPROM PROGRAMMER 
3 4 Avocet Cross Assemblers are Programs and Read: 
TRSDOS. MSDOS. available to handle 8748, 8751, 
ai Z8, 6502, 680X, etc. NMOS NMOS CMOS EEPROM MPU’S 
1. TM of Digital Research Corp. he atickis o Bis ORE: anal i ates ela Ea eae 
2. TM of Intel Corp. MSDOS computers. Order by 2516 2716 27C32. ©5213H 8748H 
3. TM of Tandy Corp. pee: type and specify i 2532 3737 C6716 X2816 8749H 
4. TM of Microsoft. eoiiaite cil sae 2564. 2732A 27C54 48016 B74 
; /V Product MODEL 7324 PAL PROGRAMMER 68766 2764 12816A 
Post Office Box 289 ee ee Ss igh Programs ali series 20 & 24 PALS. 68764 27128 8741H 
ost hold 8, 28 pin parts. Hig g oa es 
Waveland, Mississippi 39576 quality professional construc- Operates stand alone or via RS232. 8755 27256 


[601]-467-8048 tion. Sia 
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HS ORTH 


WHY FORTH ? 


Genuinely Interactive 
(BASIC is much less interactive) 


Encourages Modular Programs 
(inefficiency and cluttered syntax 
hamper effective modularization in 
compiled languages) 

Fast Execution 

(not even C is faster) 


Amazingly Compact Code 
Fast Program Development 
Easy Peripherals Interfacing 


Fully Optimized & Tested for: 
IBM-PC IBM-XT IBM-JR 
COMPAQ EAGLE-PC-2 
TANDY 2000 LEADING EDGE 
and all MSDOS compatibles 


Graphics - line, rectangle, block 
Music - foreground and 
background 

Scaled decimal floating point 
Includes Forth-79 and Forth-83 
Full Support for DOS Files, 
Standard Screens and Random 
access DOS Screen Files 


Full Use of 8088 Instructions 
(not limited 8080 conversion subset 
of transported versions) 


Separate Segments for Code, 
Stack, Vocabularies, and Defini- 
tion Lists - multiple sets 
possible 

Segment Management Support 
Full Megabyte - programs 

or data 

Coprocessor Support 

Multi-task, Multi-user 
Compatible 

Automatic Optimizer 

(no assembler knowledge needed) 
Full Assembler 

(interactive, easy to use & learn) 
Compare - BYTE Sieve 
Benchmark jan83 

HS/FORTH 47 sec BASIC 2000 sec 
w/AUTOOPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 


PS You don’t have to understand 


this ad to love programming in 
HS/FORTH! 


HS/FORTH with AUTO-OPT & 
MICRO-ASM_ $220. 


Visa 


Mastercard 


Add $10. shipping and handling 


HARVARD 


SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 
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Smaill-C Libra FY (Listing Continued, text begins on page 50) 
Listing Two 


14 case \n': 
15 default: 
14 } 

17. if (_status€fd) & ERRBIT) return (EOF); 
18 =return (ch); 


—write (CR, fd); 
_write(ch, #d); 


—write(LF, fd); break; 


eee 

20 #asm 

21 putc equ fputc 
22 entry putc 
23 #endasa 


File: FPUTS.C 


1 #define NOCCARGC /# no arg count passing #/ 

2 #include stdio.h 

3 #include clib.det 

4 /% 

) *# Write a string to fd, 

6 ## Entry: string = Pointer to null-terminated string. 
7 ## fd = File descriptor of pertinent file. 
8 #/ 

9 fouts(string,fd) char #string; int fd; ¢ 

10 = while(#string) 

ii fputc(#stringt+,fd) § 

Brae 


File: FREAD.C 


1 @define NOCCARGC /# no argument count passing #/ 
2 #include clib.def 

3 extern int _status(); 

4 /% 

5 ## Itea-streaa read from fd. 

4 ## Entry: buf = address of target buffer 


7 ## sz = size of iteas in bytes 
Q ## n = number of items to read 
9 tt #d = file descriptor 


10 ## Returns a count of the items actually read. 

if ## Use feof() and ferror() to deteraine file status. 
12 #/ 

13 fread(buf, sz, n, fd) char #buf; 
14 return (read(fd, buf, n#sz)); 
eee 

16 

17 /# 

18 ## Binary-stream read from fd. 
19 ## Entry: fd = file descriptor 
20 ## buf = address of target buffer 

21 ## n = number of bytes to read 

22 ## Returns a count of the bytes actually read. 

23 ## Use feof() and ferror() to determine file status. 
24 #/ 

25 read(td, buf, n) int-¢d, ng char #buf; ¢ 

26 char #cnt; /# fake unsigned #/ 

27 —socnt = 0; 

28 =while(n--) { 

29 #buft+ = read(fd); 


int sz, n, fds ¢ 
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30 if(_status(fd] & (ERRBIT | EQFBIT)) break; 


3f ++cnt; 

32 } 

33. return (cnt); 
34 CO} 


File: FREE.C 


1 #define NOCCARGC /# no argument count passing */ 

2 extern char #_aenptr; 

3 /# 

4 #4 free(ptr) - Free previously allocated meaory block, 
3 ## Memory must be freed in the reverse order from which 
6 ## it was allocated, 

7 ## ptr = Value returned by calloc() or malloc(), 

8 ## Returns ptr if successful or NULL otherwise. 

ae | 

10 free(ptr) char #ptr; { 

11 return (_memptr = ptr); 


> ee 

13 #ase 

14 cfree equ free 
LS entry cfree 
16 #endasa 





FOR $29.95, MICRO-WYL WILL 


WHEN OTHERS WON'T! 





You'll know why INFOWORLD rated Micro-WYL’s performance 
‘Excellent’ when you want to insert a file into a file; when you 
want to print directly from the screen; when you want to see what 
your text will look like before printing; set tabs where you want 
them; write programs the easy way; and do many other things that 
no other word processor can do. Micro-WYL is a line editor; use it 
in conjunction with EMACS derivative word processors and you 
have the best of all worlds! For $29.95, plus $2.00 postage 
and handling, have it your way! Sold with the usual 
Overbeek 30 day money-back guarantee. 


LET Micro-WYL DO IT ALL TODAY! 
Enclosed find check for $31.95 or 


charge my Mastercard# SE pies: 

Wi6an ae ees 

Check format desired: 

8" $S85D __Osborne Single Density __KayPro I 


__Superbrain __Osborne Double Density __NEC 5” 
__Northstar Advantage __Morrow Micro Decision __Televideo802 
__Northstar Horizon __Xerox 820 Single Density __ALTOS5 
__Apple/Softcard __Xerox 820 Double Density __Epson 


I’m not ready to order now, but send me information about all the 
affordable programs from Overbeek Enterprises. 


Name 
Address 
ORY i a ee Zip 


OVERBEEK ENTERPRISES, P.O. Box 726D, Elgin, IL 60120 
312-697-8420 


Micro-W YL — another affordable program from Overbeek Enterprises. 
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File: FREOPEN.C 


1 #define NOCCARGC /# no argument count passing #/ 
Z #include stdio.h 

3 /# 

4 *# Close previously opened fd and reopen it. 

2 #*# Entry: fn -= Null-terminated CP/M file name. 


b ## May be prefixed by letter of drive. 

7 ## May be just CON:, RDR:, PUN:, or LST:. 
§ + mode = "a" - append 

9 #4 "c" > Tread 

10 ## "w" = write 

il “at" = append update 

i2 ## "r+" - read update 

13 ## "wt" - write update 

14 ## fd = File descriptor of pertinent file. 


13 ## Returns the original fd on success, else NULL. 
16 #/ 

17 treopen(fn, mode, fd) char #fn, #mode; int fds ¢ 
18 if (¢close(#d)) return (NULL): 

19 if (_open(fn, mode, fd)==ERR) return (NULL): 

20 ~=sreturn (¢d); 

‘3 


(To be Continued in June Issue) 


4 a a 
Including a new dynamic debugger 
Still the choice of professionals 


¢ Compiler option to generate special * Clink option to suppress 
symbol table for new dynamic warm-boot 

debugger by David Kirkland. (With the 
debugger, the distribution package 
now requires two disks.) 

















¢ New library file search capabilities 
° New, fully-indexed 180 page manual 


* Takes full advantage of CP/M® 2.x, 
including random-record read, seek 
relative to file end, user number 

prefixes, and better error reporting. 


W APs Sw ere $120.00 
V 146 ....$115.00 


(needs only 1.4 CP/M) 


Other C compilers and 
C related products 
available . . . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm 


e* CPIM is a trademark of Digital 
Research, Inc. 


IT’S HERE! 


MONEY MATH 


¢ Uses BCD internal 
representation. 





¢ You choose from two types 
of rounding. 


¢ Configurable exception 
handling 

¢ Distributed with 12 digits 
precision. Easily configured 
for more or less 


¢ Excess 64 exponents 


$5Q00 


Monday —Friday SOURCE 
INCLUDED 





(316) 431-0018 










Micro Systems. Inc. 
y P.O Box 481, Chanute, Kansas 66720 


include $2.50 for postage and handling 
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The Accent Finder 





Spanish or French course, you probably 
know what accents are. You remember: 
those little marks that had to be placed on 
top of certain letters in certain words 
just to make your life bitter. French has 
three kinds of accents; the rules for their 
placement are complicated and have many 
exceptions. Spanish has only one accent 
and a single placement rule with fewer 
exceptions. Nonetheless, things can get 
complicated. 
If you want to write Spanish correctly, 
you have three choices: 


f you have ever taken an introductory 


1. Learn the accent placement rule and 
all the exceptions (time factor: 7 days) 


. Write with a dictionary by your side 
and look up each word (time factor: 1 
minute per word) 


. Write a program that tells the user 
where to put the accent and teaches 
the user the rules and exceptions (time 
factor: who cares, as long as I get to 
play?) 

I wrote the Accent Finder program 
aS an exercise in the use of sets in Pascal 
and also for the benefit of UCLA students 
interested in using the computer for 
humanities. Members of the Spanish 
department thoroughly tested the Accent 
Finder, and so far it has not produced any 
erroneous output. Should you find an 
error, please contact me for changes. The 
UCLA IBM4341 User’s Group keeps a 
version of this program on the school’s 
open access computer for any interested 
users. 


i) 


oS) 


A Brief Primer of Spanish Phonology 


Believe it or not, there is an academy 
(in Spain, naturally) that supervises the 
use and development of Spanish. This 
institution has formulated rules for the 
placement of the accent and for the cor- 
rect parsing of words into syllables (which 
is crucial for our algorithm). 

Spanish orthography is almost a map- 
ping of the phonetics (i.e., each letter is 
a symbol for a unique sound; you write 
what you hear). The phonetic inventory 
consists of the vowels (A, E, I, O, U) and 





by Eddy Vasile 





Eddy Vasile, 3314 Sawtelle Blvd. #28, 
Los Angeles, CA 90066. 


a multitude of consonants more or less 
similar to English. There are also two 
liquids: L and R. These sounds are called 
liquids because of certain features (i.e., 
they can be held a long time, just like a 
vowel, and the sound-generating flow of 
air escapes on both sides of the tongue 
while it touches the palate). Vowels are 
strong (the set [A, E, O]) and nonstrong 
(the set [I, U] ). 


The Accent Placement Rule 


For the purpose of placing accents, a 
Spanish word is described by two criteria: 


1. The position of the syllable with the 
pronunciation emphasis 


2. The quality of the last sound of the 
word | 


To decide whether an accent is needed, 
we apply each of the criteria to the word 
in question and compare the results. 

Each criterion can mark a word with 
a plus or a minus. If the emphasis syllable 
is the penultimate one, then the word gets 
a plus; otherwise, the word gets a minus. 
If the word ends with a vowel, an N, or 
an S, then the word gets a plus from 
criterion 2; otherwise, the word gets a 
minus. If the word has two different signs 
(i.e., both plus and minus), then the word 
gets a written accent on the emphasis 
vowel. If the word has two identical signs, 
then no accent is required. 

Let’s look at an example. In the 
word chicharon, the syllables are: 


1 CHI ** 2 CHA ** 3 RON 


The emphasis is on syllable 3, not the 
penultimate one. Thus, criterion 1 marks 
the word with a minus. The last sound of 
the word is N. Thus, criterion 2 marks the 
word with a plus. The signs for chicharon 
are mixed, so you must place a written 
accent on the last syllable: chicharon. 

Now let’s look at francesa. The syl- 
lables are: 


LFRAN **2 CE ** 3 SA 


The emphasis is on the penultimate 
syllable: the word gets a plus under crite- 
rion 1. The last sound is A, a vowel: the 
word gets another plus under criterion 2. 
The signs are the same, so no accent is 
required. 


The Accent Placement Algorithm 


The accent placement problem is 
now to find a way of coding the word 
description criteria (the emphasis position 
and the quality of the last sound). I chose 
to represent the criteria by means of two 


Booleans: CountPlus, which is true when 
the emphasis is on the penultimate syl- 
lable, and EndPlus, which is true when 
the word ends with an N, an S, ora vowel. 

The setting of EndPlus is trivial. 
First, define the variable vowels of type 
SET OF CHAR: 

Vowels := fA. Eo TO 284 
Next, check to see if the last character 
of the word is in the vowel set. If it is, then 
EndPlus is set to true. 

The setting of CountPlus is more 
complicated. The word must first be split 
into syllables (we’ll cover that shortly), 
and the position of the emphasis must 
then be identified. 

I chose to identify the position of the 
emphasis by asking the user. This accom- 
plishes two goals: the user thinks about 
the rule and the pronunciation, and words 
such as mama, which can take the empha- 
sis on different syllables according to the 
syntactic role, are covered. 


The Algorithm for Syllable Parsing 


Splitting a word into syllables is a 
process that relies on our linguistic in- 
tuitions. However, a fairly simple set of 
rules can be drafted for automatic parsing. 
We need three arrays of Booleans parallel 
with the string holding the word: Strong, 
Vowel, and Boundary. Strong is true if 
the sound in the string is a strong vowel. 
Vowel is true if the sound is a vowel. 
Boundary is true if the sound at the same 
position in the string is the boundary 
between two syllables. 

All we must do now is to set the 
values of the elements of the Boundary 
array. Boundary is set to true (i.e., the 
respective sound is a border between two 
syllables) in the following cases: 


1. If the current sound is T and the 
previous sound was N 


2. If the current sound is a vowel and the 
previous sound was a consonant 

3. If the current sound is a nonstrong 
vowel and the previous sound was a 
strong vowel 


4. If both the current and the previous 
sounds are vowels 


All this is done in the SetSylls pro- 
cedure via a FOR loop, which checks the 
qualities of each sound and its neighbor’s. 
Each time the qualifying conditions are 
met, the element of the Boundary array 
at that position is set to true. 

In the SetSylls procedure, a final 
check is executed. If the procedure finds 


eee aii a egy 
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the pattern vowel-consonant-consonant, 
then the Boundary is reset: the first con- 
sonant gets to be a boundary, and the 
second becomes part of the syllable 
initiated by the first. If the procedure 
encounters two neighboring consonants, 
then the second one marks a syllable 
boundary. One exception is LL, which in 
Spanish is pronounced like the English Y; 
this is coded in the procedure Split- 
Consonants, which checks for a consonant- 
consonant pattern (other than LL) by 
means of a FOR loop. 

Two other consonant pairs should not 
be split: CH, which generates a single 
sound, just as its English counterpart, and 
liquids. The procedures WeldCH and Weld- 


Liquids scan the CH and liquid patterns 
(using a FOR loop) and set the Boundary 
to true for the leading consonants. 

Now that the syllable boundaries are 
set, we can concatenate all the letters 
marked false in the Boundary array to the 
letter marked true that precedes them, 
creating the bodies of the syllables that 
are kept in the Syllables array. 


Program Output 


The program displays the syllables 
with a delimiter between them and asks 
the user to pick the one with the emphasis. 
Next, the plus/minus rule is applied as 
described above; if the word has an accent, 
then it is displayed on the strong vowel of 


the syllable with the emphasis. The pro- 
gram also explains its decisions as it goes 
along, using the procedure InfoMsg. 

The program provides for extensive 
error checking for entry of incorrect 
alphanumeric symbols and incorrect syl- 
lable numbers. Special procedures also are 
included for words that get accents ac- 
cording to syntactic context. 


BBJ 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 





Accent Finder Listing 


(REE EKKEKEKERKEKRKEKEKER EKER EKER EKER EKEREREKE RE KKEKEKEKEKEEKKEERKEREKEERS 
The Accent progqram analyzes spanish words anc cetermines if and where 


there is a 


written accent. 


The program will ask 


for the word 


anc then 


it will C@isplay the word split in syllables anc it will ask for the 
number of the syllable carrying the pronounciation emphasis. The 
syllables are split by stars. 


Tf there should be eae written eccent, 


be displayec. 
The algorithm has 
for 

Authors 


Last modified: 


NOTE: Please warn users that syllable parsing 


considerable error checkine 
bad input or bhoaus syjllable numbers. 


then its 


Eddy C. Vasile 
Sept 15 83 


Ss os 


with 


rosition will 


the use of sets 


is sometimes 


Gisputed even in highly qualified linguistic circles. 
My parsing algorithm will produce a somewhat unorthodox 
syllable scheme when dealing with diphthonas, but only 


to suit the ultimate need of accent evaluation. 
KKEKKEKKEKKEKKEKKEKRE EERE EEE EK EK KER EERE R ERE EERE ERREREREREKEEKEKEEKEEKREEEEESE 


program accent: 


const 
MaxChar so 8 
MaxSyl.-= 10; 
Syicige. = 5S; 
Radix = 10; 
type 
CharSet = 
wordtType = 
wordIndexType = 
var 
Wore swordType; 
Letters, 
LowerCaseset, 
Vowels, 
StronaVowels, 
Liquids. :CharSet: 


Frror: boolean: 


(*¥Maximum line size 


= 


(*Maximum number of syllables *) 
(*mMaximum size of a syllable *) 


(* base 10, used 


set of char: 
strinafMaxChar]; 
1..MaxChar; 


for conversions”) 


(*The word to be processed*) 


(*The alphabet 
(*Lower case letters 


#5) 


*) 


(Continued on next page) 
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(REE KKKEEKERKEKKEKKEE EKER KEEKEKEEKEKREKE EK IKKE EE KEKKEERKEKERKEKEKEEKEKKEEKREKKEKKEEKKESR 


* function NUMERIC * 
* Given : 1-10 char token (InputStr) ” 
* Return : TRUE if it is a numeric constant. * 
* FALSE “222th AS arvot. * 
¥ If any char is non-numeric, the token is non-numeric. * 
KEK EKKKKEKEKKEERKEKEEKKEKEKEEKEREKEK KEK KER KE REE KEK KEK KEK KEK KEEKEKEKEEKEKEKKKKEKEKKER ) 


function Nuneric(InputStr : WordType): boolean; 


var 
i : WordIndexType; (* pos, chars: of input. string.’ *) 
beqin (* Numeric *) 
Numeric := TRUE; (* return TRUE by default *) 
for.i*s:= 1: to ftenqthtinputStr).do (* 3£ any chars ‘are 77 
if nots (ipputetriil in f'0%.e 8S"). €* non-numeric; *) 
then Numeric := FALSE (*..neturn. FALSE 3%) 


end; (* Numeric *) 


(BRK K EK EE REE KEKE KERR KEKE KERR EEK ERIK EER KEK KER KEKE REK EEE EKER EKKEEK EKER 


* function CONVERT i 
* Given ; a string of diqits (Instrinq). m 
: Return : its value (integer). . 
* Convert from string to numeric by multiplying each digit by the . 
- appropriate power of the specified base (Radix). € 
KKK KKEKK EK KKK ERKERKEKEEK EKER EKER K EERE KEK KEK EKER KEKE KKK EKEKKEKEKKEEKEKKESE) 


function Convert (Instring:WordType) : integer; 
var 
7enp “¢: Integer; 
i : WordIncdexType; (* poses chars of input string *) 
(KEE KKEKEEKE KK KEKE EKER EKEEREE KEKE REE RK ERE EK EKE KEKE KRKEKEKKEKEEEREEEH 
* The DiqValue function returns the numeric value of a single diaqit* 
HEEAEEKEEK WERE REE REK EAE ERE MER ERARERRERKER REE RERKEEREAEEEEREREROEREREES ) 
function DiaValue (c:char):integer; 
begin 
DiqValue:=ord(c)-ord('0') 
end; 


pecin.” '* Converts) 
Temp:=0; (* initially return value = 0 *) 


(* Beaqinnina with left-most diait, multiply its value by the * 
* Specified base and add result to previous value. *) 
1f length(InString) > 0 then 
begin 
Temp:=DigValue (InString{[i]); 
for i:=2 to length(InString) do 
Temp:=Temp * Radix + DigValue (InString [i]) 
end (*if*) 
end; {* Convert’ *) 
(KE KEKKKEKKEKKEKKKEKKEKKEKKEKHAKEKKKKEKKEKEKEKKKKKKKKKKK ES 


* The condense procedure preprocesses the input* 
* word by conpressing it and trimminc both ends* 
* If your compiler does not have these : 
* you may either ignore this proc or write the * 
* 
* 


functions your self. * 


HHEKKKKKKKEKKEKKKEKEKEEKEREKEKEKEKEKEKREKEKEKKKKKKEES ) 
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Sea 


st tare PREFERS 


— 





1 
' 





function Condense(Instring:WordType) :WordType; 
begin 
Condense:=conpress(ltrim(trim(Instring) )) 
end; (*Condense*) 


(REEKKKEKKKEKEKEEKERERREEKKEK KEKE EEREKEREREEREREKEKEK 
*The upper case procedure uppercases a line of * 


*input. If your machine is ASCII then this is . 
*fine, if ERBCDIC then you must change the = 
*conversion factor to 64 and add - 


BEKKKKEKKEKKEEKKERERKEREKEEREEEKEEEKEKEREREEKERKKEEEE ) 


function Uppercase(InputStr : WordType): WordType; 
var 


i : WordIndexType; 
begin 
for i := 1 to length(InputStr) do 


if (InputStr{i] in LowerCaseSet) 
then InputStrf[i] := chr (ord(InputStr[i])- 32); 
Uppercase <=: Inputstr 
end; (* Uppercase *) 


(A EKKEKAEKK EKER KEKKEEKREREKEKEKREEE RR KEKRKEKEKKEKEKEREKRKKKKEKEKKE 


*procedure CheckChars checks for the validity of the * 


*input by identifying garbage characters - 
KEKE shhtethehehehtedhehedehdhideetethahcelehotohahetehehetohuhetetehitetehahetohalshotohalelaD 


(Continued on next page) 


GGM — FORTH™ has HELP* G a a ec? Cc 
for Z80' using CP/M? . 
: ‘in 
GGM—FORTH, a complete software system for Ps | 
real-time measurement and control, runs on any The UNIX regular 


Z80 computer under CP/M using an extended expression recognizer 


fig-FORTH vocabulary. 


GGM—FORTH features: | 
@ Open multiple CP/M files, in any combin- | 


ation of direct-access and sequential-access, 


fully compatible with all CP/M utilities Wildcard ‘= pansi ro} a} & 


Char. in/out uses CP/M console, lister, file, or 


SoH pipes for Aztec C 


On-line HELP* provides instant access to defi- 


nitions in the run-time GGM—FORTH dictionary ak ich lls paid ANSEL Belts ME he lg 
code, in C. Price: $35 each. $50 together. 


HELP* file is easily extended to include user 
definitions using HELP* utility For more information 


fo} ammode)inl o) (-24-mmeox-he-] lele ht (-m 
SOFTWARE ENGINEERING CONSULTANTS 


HELP* is available during full-screen editing 


Complete system and manuals $150. 


P.O. BOX 5679 


Manuals only: $ 20. | BERKELEY, CA 94705 


Introductory System: $ 35. 


GGM SYSTEMS, INC. (617) 662-0550 
135 Summer Ave., Reading, MA 01867 


1280 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc, 





-(415) 548-6268 


Circle no. 27 on reader service card. Circle no. 68 on reader service card. 
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Accent Finder Listing (Listing Continued, text begins on page 82) 


procedure CheckChars(var Error:boolean; word:wordType) ; 
var 
i:WordIndexType; 
begin 
error:=false; 
for i:=l to length(word) do 
if not -(word{i] in. betters) 
then error:=true 
end; (*CheckChars*) 


(ERK HKKKE KEKE EKER EREKE EKER ERK KER EREK ERK ERE EKEKKEKEE SE 


*procedure MImsg offers a message if the word is MI * 
*Special treatment for two letter words is necessary * 
*due to the number of pecularities. . 
KEKE KEKE KEKE EK EKE KE ERK KEKE EE EK EEK EEK KEE EKEEKEEKREKREKEKER) 
procedure MImsg; 
begin 
writeln('Mi does not take an accent if it is used as a', 
' posseSive pronoun,')j; 
writeln('but it takes an accent when used as a reflexive’, 
' pronoun.) ¢ 
writeln('Example:Mi perro es feo'); 
writeln('Me afeito a mi'' mismo,.") 
end; 


(EKER KKK KEKE ERK ERK KEK EREEEKEKEE ER EKEKEKRKEEKEREEEKRERE 


*procedure SImsg offers a message if the word is SI * 
KHEKEKKEKEKKKEKKKEKEHKEEKREKEKEREREKEEKEREKKKEEKEKEEKKEKEKEEKEEKRKEEES ) 
procedure SInsg; 
begin 
writeln('The word SI has an accent when used as ‘'yes'','); 
writeln('or when used as a reflexive pronoun.'); 
writeln('Example:! Si'', me duelen los dientes!")-; 
writeln('Se afeita a si'' mismo.') 
end; 


(FERRER KEEKKEKKEKKKEKEKEEKKEKKE ERK KEKERKEEKKEEKEEKEREKEKREKRKE SK 


*procedure ELmsg offers a message if the word is EL * 
KHEKKKEKKKEKKEERKEKERKERERERE KEKE EERE E EE REKEREEREKEKEEKEKEKEE |) 
procedure ELmsaG; 
begin 
writeln('El has an accent when uSed aS a pronoun and not'); 
writeln('when used as an article.'); 
writeln('EF''l me dio un puno'); 
writeln('!Deme el dinero!') 
end; 


(HEKKKEKKKEEKKEK EERE KEKE KEKKEEKEKEKEKEKEEKKERKEK EKER EKRKEKEEKEKEKEKKE 


The prompt procedure will prompt user for a word, scan it 
for invalid input and set an error parameter to true if 


so. Else, the word is passed to the PROCESS procedure, 
KHAKKEKKEKKKKEKEKKEKEKKEEKKEERKEEKKEKKEEEKKKKEEKEEEKEKREKEKREKRERKEKEREREE | 


(Continued on page 88) 
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Now the advantages 
of Forth are available 
for your IBM PC? Easy to 
use for both experienced 
programmers and beginners 
too, Forth offers the advantages 
of speed, flexibility, and ease of use. 


The MU Forth Package Provides: 


@ Source and object code 
user documentation 
@ Commented source listings 
in IBM and macro assembler format 
® Turtle graphics, sound, and 
music Support 
@ Keyboard and video support 
sample programs 


Cc BUILDING 
BLOCKS 


Save a year of development. 







































O IBM PC* Building Blocks ............................. $149 
Video & IO routines, string functions, asynchronous port 
control, date, time, random numbers, printer control. 

Over 200 functions. 

EP mintnematics Library  ...... 0.0.02. c.ccvecessccsvcasasnes $99 
Logarithms, trigonometric functions, square root, ran- 

dom numbers. 

O Communications Library .............................. $149 
For Hayes Smartmodem?t, modem 7 and xmodem. 

O B-trees & Virtual Memory Management Library ... $149 
List handling features. 

O Advanced Building Blocks _............................ $ 99 


Requires: 
Julian dates, dBasellI access, data compression, text windows. 













Your IBM PC, 16K memory, 1 disk drive, PC 
DOS 1.X, color or monochrome, 40 or 80 
column display. 






All Building Blocks use the ‘IBM PC Building Blocks’. 
Credit Cards Accepted. Single User License. 
Multiuser licenses available. (Mass. add 5%) 


NOVUMN 
ORGANUM 


29 Egerton Road, Arlington, MA02174 _ Tel: (617) 641-1650 
(TM) IBM* 





The Price 2... ss. 


Available from: Art Arizpe 
MU Software 

115 Cannongate Ill, Nashua, NH 03063 

603-880-9416 


SEND CHECK OR MONEY ORDER 











































(TM) Hayes Microcomputer Productst (TM) Ashton-Tate* 


Circle no. 45 on reader service card. Circleno.42onreaderservicecard.  — 


Six Times Faster! 
Super Fast Z80 Assembly Language Development Package 
Z80ASM SLRNK 






































e Complete Zilog ® Conditional assembly e Links any combination ©¢ COM may start at 
Mnemonic set e Assemble code for of SLR format and other than 100H 

e Full Macro facility execution at another Microsoft format REL e HEX files do not fill 

@ Plain English error address (PHASE & files empty address space. 
messages DEPHASE) e One or two pass e Generate inter-module 

e One or two pass e Generates COM, HEX, operation allows output cross-reference and 
operation or REL files files up to 64K load map 

¢ Over 6000 lines/minute ¢ COM files may start at > Goneraten HEX-OF COM: 9 Seer syeuo! table to 

© Supports nested other than 100H files | disk in REL format for 
INCLUDE files e REL files may be in e User may specify PROG, use in overlay 

© Allows external bytes, Microsoft format or DATA, and COMMON generation : 
words, and expressions SLR format loading addresses ¢ Declare entry points 
(EXT1 * EXT2) e Separate PROG, DATA from console 

© Labels significant to 16 & COMMON address > ne e The FASTEST Micro- | 
a SS a la spaces des mk it if My me oY soft Compatible Linker 
externals (SLR Format e Accepts symbol defini- pl! / eh available 
Only) tions from the console 4 


! e Flexible listing facility 
® Integral cross- reference maciiides Tide eed 


e Upper/lower case DATE in listing (CP/M 


: TAR e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
optionally significant Plus Only) 


- Librarian and Manual for just $199.99. Manual only, $30. 
e Most formats available for Z80 CP/M, CDOS, & TURBODOS 
@ Terms: add $3 shipping US, others $7. PA add 6% sales tax 


For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 i Pe ys tems. 


_ Circle no. 70 on reader service card. 








Accent Finder Listing (Listing Continued, text begins on page 82) 


procedure prompt(var word:WordType; var Error:boolean) ; 
begin 
write('Enter the word > '); 
readln (word) ; 
word:=UpperCase (Condense(wordgd) ) 
end; (*prompt*) 


(FERRER KEKE KHER EEK EK EKEEK KEKE KEKE KERR ERK E KEKE K EKER EKREKEEE 
*The master procedure of the program that processes the . 
*word by dividing it in syllables and computing whether ° 
*the word has or does not have an accent * 
KEKE KKK KK KKK EK EKER KEE KEK KEE KEK ERK RE EKEKEEK KEE KREKKEKREEKEKES ) 


procedure process (word:wordType) ; 


type 
LetPosType ew 6 ee ete 
SylPosType = 1... MaxSyl; 
SylArray = arrayf[l..maxSyl] of string[SylSizel; 
SoundTyre = arrayf[1l..MaxChar] of boolean; 
var 


TempString: WordType; 
Syllables:SylArray; 


Vowel, 

Strong, 

Boundary : SoundtType; 
EndPlus, 

CountPlus : boolean; 
Lastsyl, 

StressSyl tu8y lLPosType; 
stressLet :: Le tPosTy pe; 


(RAKE KERR ERK HK K KEKE EKER EERE KEREKKE KE KK KEK 


*The CheckNumeric procedure verifies validity* 
*of numeric input in order to proevent a * 
* 


*proaqram crash on bad input 
KKKKKKKKEKKEKREKEKEE KEKE ERKEEEKEEKKEERKEEKRKKEEREERE | 


procedure CheckNumeric(var TempStrina:WordType) ; 
bedqin 
while not Numeric(TempStrindg) do 
beqin 
writeln('**** Garbage Input ***"); 
write('Please enter a numeric value > '); 
readin (TempString) 
end 
end; (*CheckNumeric*® ) 


(KKK KERR EKER EEE ERK KEKE RE KEK ER ERK KEKE KK 


*procedure CheckSyl verifies the validity 
*of the syllable number that is supposed 
*to carry the stress. 
*Te. It should not be 0 and not qreater 
*then the number of svllables 
KKEEKKKEKEKEKKEKKEEEKEEKEEKEKKEEKEKEREREKKEKKEEKEKEKES | 
procedure CheckSyl( var StressSyl:inteqer) ; 
beqin 


t 
* 
* 
* 
* 
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while not (StressSyl in [1..LastSyll) do 

beqin 
writeln('Invalid syllable number'); 
write('Enter correct emphasis syllable >’); 
readin (TempString) ; 
CheckNumeric(TempStringq) ;: 
StressSyl:=Convert (TempString) 

end 

end; (*CheckSyl*) 


(ERE KEKKEKEKRKKEEKKKKEKRKREKREKKKEKEEKKEKREKEKEKEKEKEKKEEKEKKKKKKKE 


*The Initialize procedure sets the variables to initial* 
*values in preparation for a new word of input * 
RHKKKEKEKKKEKKEKEKR KEE KEEKE EKER EK ERE EE EKRKE EEE KERR ERKEKKEEKES) 
procedure Initialize(var Stronq,Boundary,vowel:SoundType; 
var Syllable:SylArray) ; 
var 
i: inteqer; 
beaqin 
for i:=l to MaxChar do 
begin 
boundary[il:=false; 
vowel[fil:=false;: 
Stronalil:=false 
end; 
boundary! lenath (word)+1ll:=true; (Continued on next page) 





Come to us for your state-of-the-art FORTH 4 AN OUTSTANDING VALUE 


needs! Announcing the latest additions to the == “We bought and evaluated over $1500.00 worth of 
UNIFORTH family: BEE : compilers ...C /80 is the one we use.”’ 
cae Dr. Bruce E. Wampler, Aspen Software 
16-bit Z8000, 68000, 16032 = author of “Grammatiks 
32-bit 80186, 68000, 16032 wm ‘Full featured C Compiler for CP/M® with 
=== |/0 redirection, command expansion, 








Obtain these stock items captured under tradi- = execution trace and profile, initializers, 
tional operating systems, or try our DB16000, ==: Macro-80 compatibility, ROMable code. 
Slicer and CompuPro stand-alone versions. Com- c/00 FLOATS & LONGS Adds 32 bit data 
plete compatibility is retained throughout the = types to C/80 3.0 compiler. Includes 

UNIFORTH product line (from the Commodore 64 = 1/0 and transcendental function library: 


to the VAX). 2S 
) zs: ETREE SUSE §6Call or write for 16 page booklet 


Features include software floating point, video = detailing our programming languages LISP/80, 

editor, full macro assembler, debugger, decom- ze. RATFOR, Assemblers, and : other CP/M products. 
piler, top-notch documentation, etcetera. Prices ee : 
start at $175. Call or write for our free brochure. 


A a eI ee NTL EE PII R AAT Se tel hel soaps oo 


Unified Software Systems 


Lo as Be? SRR Ss ee 
i - 
see ee ry e feo oo ae a on 
oes + = s - ee ee 
be ee no - ee” 2 ee ee 
ce = 

ee a eon eee ee ee em en 
ee ee eee ae ae ee a eo we ee ae ae eon ee 
ee ee ot oe ee ee ee we ae ae oe a ot oe 
er omen t nner eine ala celesnn “3 7 fata at hat betel Sa Sat et hat he a nel el 
oe - ~ - = . wees 
a a eae ee oe oe ee oe ee 


a ee ae we ee ee 





me ee ae ae ee ae ae ee 





P.O. Box 2644. New Carrollton. MD 20784. 301/552-9590 = 15233 Ventura Blvd. Seg , SE 986-4885 : 
DEC, VAX,PDP,RT-11,RSX-11 (TM) Digital Equipment Corp; CP/M (TM) == Sherman Oaks, CA 91403 Dealer inquiries invited. : cx 
Digital Research; MSDOS (TM) Microsoft; VIC-20 (TM) Commodore a aa ar tates aripanmemennoreece eee 

Circle no. 76 on reader service card. Circle no. 69 on reader service card. 
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for i:=l1 to MaxSyl do Syllablefil:=""' 
end: (*Initialize*) 
(RRR IK RR RRR RIKER ERK EKER EERE ERE KK ER ERK ER ERE ERE RE 
*+procedure SetQuality sets the quality of each * 
*sound of the word. Ie. if a vowel then the vowel* 
*flaq is turned on and if a strong vowel then the* 
*strong flaqa is turned. s 
KIKKKKK EKER ERK ERE EKER ERE EKEEKRKEKERKEKEKEKKEKEEKEKS |) 
procedure SetQuality(var Stronqg,vowel:SoundType) ; 
var 
isinteqger; 
beain 
for i:=l to lenqth(word) do 
if wordfil in vowels 
then 
beqin 
vowelfil:=true; 
if wordfil in StronaqVowels 
then Stronq/f[il:=true 
end 
end; (*SetQuality*) 


(FRR KK KEKE EKER KRIK IK ARIK ERE ERK KEKE RE REE ERE KEK RE REE EEEEK ES 


*the SetSylls procedure sets the boundary between the * 

*syllables of the word according to strenath and value.* 

KEK KEKE KKK EK KKK EK EK EEE KEK RE KER KEKE EER KKK ER EKER EREKKEEER | 

procedure SetSylls(var Boundary:SoundType; word:wordType; 
vowel :SoundType) ; 


var 
i: integer; 
beain 
for i:=2 to lenath(word) do 
beqin 
if ((not vowelfil) and vowel[fi-1]) 
or ttwordfi=-1) = = 'N') and (wordlil='T")) 


or (strongfi-11 and (not stronafil)) 

or (strongfi-11 and stronq[il) 

or (stronaf[il and (not strong/i-11) and vowelfi-1]) 

then boundary!/il:=true; 

if i>2 then 

if (vowelfi-21 and (not vowelfi-11) and (not vowelfil) 
and (word/fil=word[fi-1]1)) 


then 
beqin 
boundarv[i-l]:=true:; 
boundarvlil:=false 
enc 
end 


end; (*SetSylls*) 


(RRKKK ARK KKK AKER ERE KEK KEEKKEK KEKE EK KER ER EKRKEKKEKEKEKKEKEE RE KKK KEKE EERE S 


*The SplitConsonants splits two neiaqhbouring consonants in * 
*syllables (except 11) . 


KHER KEKEKK EK ERE EKER KER REE REK ER EKER REE RK ERKEEKEREKKE KEE KK KEKEKEKEERE ) 
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frrocedure SplitConsonants (var boundaryv:SoundType: word:worcdcType; 
vowel sSoundtType) ; 
var 
i: integer; 
beaqin 
for i:=3 to lenqth(word) do 
if vowelfi-21] and (not vowelfi-11) and (not vowelfil) 
then 
begin 
boundary[i-11]1:=false; 
boundary/[il:=true 
end 
end; (*SplitConsonants* ) 
(REKKRAEKKKEKKEKEKKKEKKEKKEKKKKKEKRKEKKKEKEKEKKEKEKKKEKKE KK 


*The WeldCH procedure insures that C and H go in * 


*the same syllable * 
HHEKKKEKEKHEKEKEKREE KE KEK EKERKEREKKEKERHEREEKEREEKKEE | 


procedure WeldCH(var boundary: SoundType; word:wordType; 


vowel :SoundType) ; 
var 
is integer; 
begin 
for i:=3 to length(word) do 


beaqin 
if (wordfi-11='C') and (not Boundaryli-1]) and 


(Continued on next page) 


A Professional Quality Z80/8080 Disassembler 
REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k !ong! 
Lets you insert COMMENTS in the disassembly! 


C Programmers: 
Program three times faster 


with Instant-C™ 


Instant-C™ makes programming three or more times 
faster by eliminating the time wasted by traditional 
compilers. Many repetitive programming tasks are 
automated to make programming less frustrating 


A powerful command set gives you: 
and tedious. 


INTERACTIVE disassembly 


Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and !/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M" 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


Two seconds elapsed time from completion of 
editing to execution. 


Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 


Editor available any time during session. 
symbolic debugging; single step by statement. 


Automatic recompilation when needed. Never a 
mismatch between source and object code. 


Directly generates .COM, .EXE, or .CMD files. 
Follows K & R—works with existing source. 
single, integrated package. 

Works under PC-DOS*, MS-DOS*, CP/M-86*. 


More productivity, less frustration, better programs. 
Instant-C™ is $500. Call or write for more information. 


: (617) 653-6194 
Rational P.O. Box 480 
Systems, Inc. Natick, Mass. 01760 


*{Trademarks: PC-DOS (IBM), MS-DOS (Microsoft), CP/M-86 (Digital Research. Inc.) 
Instant-C (Rational/Systems, Inc.)] 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


“CP/M is a Trademark of Digital Resaerch, Inc. 





Circle no. 61 on reader service card. Circle no. 59 on reader service card. 
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(wordfil="H') and boundarvlil 


then 
begin 
Boundary[{i-1]:=true; 
Boundary!lil:=false 
end 
end 


end; (*weldCH*) 
(REE EKERH EKER REE REEEKER ERE RE EEE EERE EERE RERRE EES 


*Liguids (1 and r) must be spliced to the next . 
*syllable = 
KHKKKKKEKKKKEKEKEKEKEKRKEKREKKEKEEKR KEKE EK EKERKKEKREKKKKEKEEE ) 
procedure WeldLiquids(var boundary: Soundtype; word:wordType; 
vowel : SoundType) ; 
var 
i: integer; 
begin 
for i:=3 to lencth(word) do 
if vowel[{i-2]} and 
(not vowel[i-1]) and (not vowel[i]) and 
(word[{i] in liquids) 
then 
beqin 
boundaryl[i-1l]:=true; 
boundaryl[il:=false 
end 
end; (*weldLiquids*) 


(BRR EKKE EK KEK EKKEKK KEKE EEE KER EEK EKER ERK EKER KERR KERERKKKE KER 


*The divide procedure sets the array of strings 'Syllables'* 
*to the values of the word syllables by : .licing toqether * 


*the letters of a word up to a letter marked as a syllable * 
KEEKKKKEKEKKKEKKKEKEKKEKERKEKEREKEKEEREEKEKEEKEEKREREKEEREKKERKEKKKEERS ) 


procedure divide (boundary: SoundType; var Syllables:SylArray) ; 
var 
i, 
i:inteaqer;: 
beqin 
1:=1; 
Syllables[f[ll:=copy(word,1,1); 
ATeZ2 
while i<=length(word) do 
beqin 
if not boundary! il 
then Syllables[f[il:=Syllables[il+copy(word,1,1) 
else 
beqin 
Syllablesfi+l]:=copy(word,i,1); 
i:=i+l 
end; 
J:=14+1 
enc 
enc; (*divide*) 
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anne nner renee se eres rn see SSeS SS SSS SSS SSS SSS SSS SSS SS SSS Ss SSS SS SSS SSCS SNS 


(KEKE KKK EK KEK ER RE KER KKK EKER EKER ER KEKR ERE REE KE EKEKKKEKES 
*The EvalSylls procedure displays the word split in syllables* 


*¥and it also returns their 


*The syllables are nuniberecd. 


total number, * 


* 


BREAK K KEK KEEK EEK KE REKE KEK KKK EKER KEKE ERE KER EKER EKEKEEKEKRKEKEREKE) 


erocedure EvalSyllis(syllables: SylArray; 


Var 
lz: integer; 
beain 
i:=l; 
while syllablesfil<>'' 
beqin 
write ('***! 
1:=i+] 
end; 
LastSyl:=i-1 
ena: t*evalgyvil*) 


do 


var LastSyl:inteqer) ; 


,isi;'=>', sylleblesfil): 


(KER KKEKEKEKEKEKEEKEEERKEKEKE EK EEK KKEEKEKEKRKERKEKEKEKEKEKKKKEKKKKKE 


*The procedure SetStressLet will set the position © 
* of the stress letter by doing some calculations * 
* I.e. looking for the stressed vowel within the * 


* stressed syllable 


* 


KKK KKEKK EKER KERR EERE KEK EKER KEKE KEKKEKEREEKEKRKKEKKEKEESE) 


procedure SetStressLet(var StressLet: 


inteqer) ; (Continued on next page) 
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Lamp software: Modem 7 xfer, fully buffered to disk 
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*... Dy far the best debugging tool 
available for the IBM-PC today.” 


S. Lerner, Multi Systems Group 
CodeSmith"-86 
CodeSmith 86 


P 8087 
BX 0000 BP 0000 
5! 0000 
Ol 0000 






2001 0002 © 9C PUSHF 
2001 0003 55 PUSH 
2001 0084 56 PUSH 
2001 0005 06 PUSH 
2001 0006 . B8BEC MOV 
2001 0008  B3EC4E ? SUB 
2001 0008  B9SEFE Mov 
2001 O00 = 8956F4 mov 
2001 0011  8D761E LEA 
2001 0014 —-F3A4 MOVSB 
2001 0016 © 241C AND AL.000111008 
2001 0018 45 08 69 


BP. SP 

SP. + 46H 
FEHIBP). BX 
F4HIBP),DX 
St.JEHIBP] 


TYPE YOUR COMMENT! 
TAG A LINE 


;SET A BREAKPOINT 


CHANGE RADIX! 
FORCE OB OPCODE 


ENTER DUMP ADDRESS 
0304 0050 
03C4 0060 
0304 0070 
0304 0080 


3€4 0056 Absolute Address 03096 Segment Offset 0304 9056 
41 63 43 49 49 20 GM 55-50 50 4F $2 54 20 32 20  AScit §upPoRT 2 
20 20 20 20 43 GF 64 65-53 6D 69 74 68 20 38 36 CodeSmith-d6 
20 40 41 4B 45 53 20 44-45 42 55 47 47 49 4E 47 MAKES DEBUGGING 
20 41 20 42 4C 41 53 54-21 20 20 20 20 20 20 20 A BLAST! 


WNOW 2 LVL 1] 2 WLI 






* Simple/single keystroke commands 
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* SCREENSAVE Mode 
Saves and restores user’s graphic display when 
breakpoint hit 
- Continuous monitoring of selected memory 
* Hundreds of tagged breakpoints supported 
* Disassemble selected ranges of memory code 
to disk—compatible w/IBM Assembler 
* Many other inspired features ‘ 
* Requires MS-DOS & 160K RAM 2 


MasterCard + VISA » COD Orders 


VISUAL AGE 


642 N. Larchmont Blvd., Los Angeles, CA 90004 


(213) 439-2414 CodeSmith, TM International Arrangements, Inc. Ry 
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Accent Finder Listing (Listing Continued, text begins on page 82) 


var 
SyllCount, 
i sinteqer; 
beain 
SyllCount:=1; 
for i:=l to lenqth(word) do 
beqin 
if Boundary!/il 
then SyllCount:=Syl1lCount+tl; 
if (SyllCount=StressSyl) and Vowel[il 
then StressLet:=i 
end 
end; (*SetStressLet*) 


(REE KKKEKKE EKER KEK KEEKEKEKEEKR ERE ERKEEKRKEEREKEREKE 


*procedure DisplayAccent displays the word * 
*with its written accent es a slash next to *% 
*the letter supposed to carry it. ¥ 


KKK KK KEKE KEKE KEKE KE KERR EKER ER EKERKEKKEEKEKKE EEE ) 


procedure DisplavAccent (word:wordType) ; 
var 
iz:integer; 
beqin 
writeln('The word ',word,' has a written accent "'); 
for i:=l1 to length(word) do 
begin 
write(" ',word/fil): 
if i=StressLet then write('/') 
else write(' ') 
end; 
writeln 
end; (*DisplavAccent*) 


(REKEKEKKEEKEKKEREKEKEKEEEKEEKKE EERE EKER EKEKK ER 


procedure InfoMsq comes to work after all * 
procedures have done their work and it * 
explains why certain decisions were made . 


KEKKKEKEKKEEKEKREKEKKEKEKEKEEKEKEKEEERKEKKKKKEE ER KE) 


procedure InfoMsq(word: WordType; EndPlus, CountPlus: boolean); 
beain 

writeln('The final letter is ',word[lenaqth(word)]); 
write('Thus a '); 
if EndPlus then write('+') 
else write('-'); 
writeln(' must be assiqned for the word ending.'):; 
writeln('The emphasis is on syllable #',StressSyl:1):; 
write('Thus we must assiaqn '); 
if CountPlus then write('+') 
else write('-'); 
writeln(' for the emphasis placement.'); 
writeln('Reasons considered for the above decision: '); 
If EndPlus<>CountPlus 
then writeln('The siqns are cifferent so there is an accent!') 
else writeln('The siqns are the same so tnere is no accent!'); 
if (not strong[lenaqth(word)-11) and vowelflenath(word@)-11 and 


pe eenspnnsp 
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Strong[Lenath (word) ] 
then writeln('The word ends with a diphthonq, there is an accent.') 
if stronalStressLet-1]1 and (not strona[StressLet] ) 
then writeln('A split diphtonag, there is an accent.'); 
if (word[lenath(word)-11='P') and (word[lenqth(word)1='S') 
then writeln('wWords ending in PS always get accents!'); 
if (lenath(word)=3) and (not vowelfl1l) 
then writeln('Three lettér words are affected by semantics' 
foe. RAS VSiodna si 5 
end; (*Infomsa*) 
begin(*of the process procecure?*) 
Initialize (Strona,Boundary,vowel,Syllables) ; 
SetQuality(stronq,vowel) : 
SetSylls (boundary,word, vowel); 
SplitConsonants (boundary,word,vowel) ; 
WeldCH (boundary ,word,vowel) ; 
WeldLiguids (boundary,word,vowel) ; 
if not vowel[length(word) ] 
then boundary[length(word)]:=false; 
divide (boundary,syllables) ; 
EvalSylls(syllables,LastSyl) ; 
write('Enter the number of emphasis syllable > '); 
readln (TempString) ; 
CheckNumeric(TempString) ; 
StressSyl:=Convert (TempString) ; 


(Continued on next page) 
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Accent Finder Listing (Listing Continued, text begins on page 82) 


CheckSyl(StressSyl); 
SetStressLet (StressLet) ; 
EndPlus:=false; 
CountPlus:=false; 
if not ((not vowelf{length(word)]) and (not vowelflength(word)-1])) 
then if (vowel[length(word)]) or 
(word [lengritword)? in ['N";> S79) 
then EndPlus:=true; 
if LastSyl-StressSyl=l1 then CountPlus:=true; 
if (EndPlus<>CountPlus) orf 
((length(word) > 3) and 
strong[StressLet-1] and (not strong[StressLet])) or 
(((not strong[length(word)-1]) and Vowel[length(word)-1]) and 
Strong[length(worda) }) 
then DisplayAccent (word) 
else writeln('No accent !'); 
InfomMsg (word,EndPlus,CountPlus) 
end; (*Pprocess*) 


begin (*main*) 
word:='xxx'; 
vowe te == (Rf Et tT" tO oe 
Liguide<se('L',’ Rois 
Strongvowels:=['A','E','O']; 
LowerCaseSet:=[‘'a'..'z']J; 
Letters:=['A'..'Z']; 
writeln('Please remeber that all interrogatives get an accent'); 
writeln('when used in a guestion,'); 
wr tell Ex: 7Oue*' aices }> 


wr ttein (*. E''] dice que tiene once anos.'); 
writeln('To stop enter ''Return'' without input'); 
while wore<>'' do 

begin 


Prompt (word,error); 
1£ -tword¢>?*)}: and (not error) 


then 
begin 
if length(word) < 3 then 
case length(word) of 
1: writeln('Monosounds do not have accents'); 
2: if word='SI' then SImsg 
else if word='"MI' then MInsg 
else it word='EL' then ELmsg 
else 
writeln('Probably no accent !') 
end 
else Process(word) 
end 
enc; 
writeln('!!Que la fuerza este'' contigo!!') 
end, 
End Listing 
ee er a ee 
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Solutions to Quirks in dBASE II 


t Money Tree Software in Corvallis, 
J oxen we offer a service to fin- 

nancial planners called MoneyNet. 
MoneyNet is a computer data base ac- 
cessed by a modem from which planners 
can retrieve timely data about various 
financial matters. 

The entire system is written in 
dBASE II. We tried several of the dBASE 
II look-alikes, which claim more records, 
more fields, and more memory variables, 
before committing to dBASE II. Let me 
say, with firsthand experience, that from 
a high-level language perspective dBASE 
II is the clear choice of most serious 
programmers. 

However, as good as dBASE II is, 
it does have some quirks. 

The quirk I will address here is the 
lack of an INKEY function like that found 
in other high-level languages. The INKEY 
can be used to interrupt a long listing or 
print-out without aborting the program 
entirely. 


The Problem 


Almost any standard CP/M text file 
can be converted to a dBASE II data file 
simply by creating a data base of one 
field, character type, and length of 80 then 
appending from the desired text file using 
the SDF option. Each record of the data 
base will be one line of text. Displaying 
the text can be a function of a normal 
DO-LOOP like this: 


USE TEATFILE 


DO WHILE .NOT. BOP 
? LINE 

SKIP 

ENDDO 


But suppose this routine is part of a 
menu-driven, end-user application and the 
user decides in the middle of the DO- 
LOOP that he or she wants to stop reading 
this text and return to the main menu. 
How can the user abort the loop from the 
keyboard? ESCAPE has been turned off, 
since we don’t want the end user at the 
DOT-PROMPT level, and it wouldn’t 
meet the user’s need anyway since he or 
she wants program flow to continue after 
exiting the DO-LOOP. 


by Gene Head 


Gene Head, 2860 NW Skyline Dr., Corval- 
lis, OR 97330. 


We need a way to check whether a 
key has been pressed at the keyboard after 
each record (one line of text) has been 
displayed. That way, our DO- LOOP could 
be aborted with a control-C from the 
keyboard as shown in Figure | (page 99). 

The standard answer is to write a 
CALLable machine language routine to 
monitor the keyboard, usually by doing 
a BIOS function call. Unfortunately, this 
scheme will not work because dBASE II 
polls the keyboard at least once after a 
character is sent to the console, gobbling 
up the keyed-in character before any 
machine language call can grab it. No mat- 
ter where in the program we put our call 
to console I/O check, it is very unlikely 
that our subroutine will recognize the 
user’s key press before dBASE II inter- 
cepts it. 


A Workable Solution 

A disassembly examination of the 
dBASE II program shows that console 
input goes something like Figure 2 


(page 99). It looks like the solution could 
be a simple matter of PEEKing at SAVEIT 
to see the last key pressed. Unfortunately, 
dBASE II zeros this byte after it uses the 
keyed-in data. This routine is called very 
often, and SAVEIT will be zero most of 
the time, containing the keyed-in char- 
acter for only a very short period. My 
modification saves the keyed-in byte toa 
safe RAM location undisturbed by dBASE 
II (Figure 3, page 99). 

This modification means that SAVE- 
IT continues to perform as expected, but 
LASTKEY is filled with the keyed-in 
character and remains unchanged until 
another key is pressed or it is changed 
with a POKE command. Now we can 
monitor this location, much like BASIC 
allows for the INKEY command. The DO- 
LOOP will print text until the user inputs 
a control-C (or any desired character) 
from the keyboard or the end of file is 
found (Figure 4, page 99). 

Of course, it isn’t quite as easy as it 
sounds because there is no room to do a 


Solutions to dBASE Il Listing 


A>DDT DBASE.COM 
DDT VERS 2.2 


NEXT PC 

4E00 0100 

-L 3A81 
3A81 MVI E,FF 
3A83 MVI C,06 
3A85 CALL 0005 
3A88 ORA A 
3A89 RZ 
3A8A STA 4378 
3A8D RET 
SA8E PUSH B 
SA8F PUSH D 
3A90 PUSH H 
3A91 CALL 3A62 

-A3A8A 

SA8A JMP 14A 

3A8D 

-A14A 

014A STA 4378 

014D STA 151 

0150 RET 

0151 DB O 

0152 

-GO 

A>SAVE 77 DBASE.COM 

A> 


<.——— PATCH JMP HERE 


=== PATCH JMP HERE 


<—-—— INSTRUCTION WE PATCHED OUT 
<——-— ADDED INSTRUCTION 


<——— 337 DECIMAL (LASTKEY) 


End Listing 


eee 
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USE TEXTFILE 
DO WHILE .NOT. EOF .AND. KEY:PRESS<>3 * 3=CONTROL-3 
? LINE 


SKIP 
ENDDO 


Figure 1. 





E,OFFH ;aeT UP FOR DIRECT CONSOLE INPUT 
C9 
BIOS ; DO DIRECT CONSOLE I/O 
A 

; NOTHING TYPED SO RETURN 
SAVEIT ; SAVE TYPED KEY 


Figure 2. 





EOFFH  ;SET UP FOR DIRECT CONSOLE INPUT 
C.9 

BIOS ; DO DIRECT CONSOLE 1/O 

A 


SAVEIT ; SAVE keyed-in character 
LASTKEY ;...and toa SAFE location 


Figure 3. 





USE TEXTFILE 


DO WHILE .NOT. EOF .AND. PEEK(LASTKEY) <>3 *3=CONTROL-C 
? LINE 

SKIP 

ENDDO 


Figure 4. 





? "YOU HAVE FIVE SECONDS TO ANSWER ——> ' 
STORE 100 TO TIMER 
POKE 0 33/7 


DO WHILE TIMER .AND. PEEK (337) =0 
STORE TIMER -1 TO TIMER 

STORE PEEK (337) TO ANSWERED 
ENDDO 


IF ANSWERED 

? ‘YOU ENTERED AN ANSWER IN TIME’ 

ELSE 

? ‘YOU FAILED TO ENTER AN ANSWER IN TIME’ 
ENDIF 


Figure 5. 


direct in-line patch in dBASE II and my 
modification adds three bytes of code. So 
we have to do some redirection to an un- 
used RAM area in dBASE II. 

The screen I/O, as defined using the 
INSTALL.COM program, is saved in low 
memory from about 10D hex to about 152 
hex. Because the codes starting at 14A 
hex are all zeros in my installed dBASE II, 
this is where I put the patch. As far as 
I can tell, dBASE II never addresses this 
RAM. Your installed dBASE II may use 
these bytes, so first look around this area 
for eight consecutive bytes of zeros and 
then put your patch there. 

This is what will happen. Instead of 
storing the keyed-in character at SAVEIT 
using the STA SAVEIT instruction, we use 
these three bytes to do a jump to our un- 
used area of RAM in the screen data table. 
Here we do the first store just like the 
store we patched over: STA SAVEIT. In 
addition, we save the keyed-in data to a 
safe RAM location with STA LASTKEY. 
Finally, we return. Our patch is done and 
dBASE II will not even know it is there! 

If you use dBASE II 2.4, the DDT 
session in the Listing (page 98) will per- 
manently modify your dBASE II to recog- 
nize a keyed-in character by PEEK (337). 
Now a PEEK (337) will always show the 
last key pressed. This can be used to time- 
out input, as shown in Figure 5 (below). 

The DO-LOOP application has al- 
ready been explained, and I hope you can 
come up with unusual applications I 
haven’t thought of. 

Next time I will present a short piece 
on verifying zip codes in mailing lists. 


BBL 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 197. 


[ PROMPT DELIVERY!!! 


SAME DAY SHIPPING (USUALLY) 


DYNAMIC RAM 
256K 200 ns $59.90 
64K 200 ns 5.87 
64K 150 ns 5.99 
64K 120 ns 7.50 
16K 200 ns 1.15 
EPROM 
27128 300 ns $22.50 
2764 250 ns 9.25 
2732 450 ns 8.50 
2716 450 ns 3.60 
2532 450 ns » 4.75 
STATIC RAM 
6264P-15 150 ns $42.00 
6264LP-15 150 ns 44.00 
6116P-3 150 ns 6.56 


MasterCard VISA or UPS CASH COD 
Factory New, Prime Parts 1uPoo 
MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave. 
BEGGS. OK. 74421 (918) 267-4961 
Prices shown above are for March 15, 1984 
Please call for current & volume prices. Prices subject to change Please expect higher 
prices On some parts due to world wide shortages. Shipping and Ins! e tra Cash 


nsurance ex 
s shown. Small orders received by 6 PM CST can usually be delivered to 
you by the next morning, via Federal Express Standard Air « $5.99! 
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OF INTEREST — 


by Michael Wiesenberg 





But Does It Have “Of Interest’’? 


Want to find all articles about your 
IMSAI, Sorcerer, or HP 87? The 
Microindex, from Serious Personal 
Computing, is various flavors of period- 
icals that index the multiplicity of 
articles in over 70 computer magazines, 
a sort of Readers’ Guide to Periodical 
Literature of computer publications. 
Microindex, a monthly for libraries, 
universities, and large businesses, cross- 
references the entire spectrum of 
computer magazines, and costs $99 a 
year or $12 an issue. The monthly 
Abridged Microindex, for smaller 
organizations, indexes a subset of 32, 
at $49 per year or $6 per issue. Yes, 
DDJ is in it. Annual Microindexes 
specific to various magazines cost $5 
to $12 each. I know that you will all 
want to order the Microindex to 
Dr. Dobb’s Journal, Volume 8, for $7. 
Also available are complete one- 
volume monthlies and annuals on var- 
ious topics, as education, business, 
Apple, IBM, Commodore, and so on. 
Reader Service No. 111. 


























But What if Your Printing 
isn’t Legible? 


For those who get tired of using 
keyboards, Pencept’s Penpad lets you 
input data by handwriting. I mean hand 
printing, and you'll have to learn to 
represent lowercase letters with half- 
height capitals, and you have to stay 
within the lines just like you did in 
first grade. The real value in this 
product seems to be in designing 
custom forms, in conjunction with 
the Penpatch utility. 

Penpad is directly compatible with 
VisiCalc, MultiPlan, Lotus 1-2-3, and 
WordStar. For $995 on the PC, you 
get tablet, ballpoint with side-mounted 
activation button, and a board for the 
PC. The board has its own MC68K 
CPU that has the character recognition 
software, sending input that looks to 
the computer like it came from the 
keyboard. Penpad is also what they 
call ‘‘the mouse that writes,’’ because 
stylus motion and button pressing can 
be translated into cursor commands. 
Reader Service No. 115. 
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C You on 8086 


Version 2 of Lattice C is now avail- 
able for 8086 and 8088 for most MS- 
DOS computers. Programs can address 
1Mb of memory, and be as long as 1Mb. 
The new library handles multilevel 
file directories and is compatible with 
recent versions of Unix. Compiler 
costs $500, and library source is also 
$500. You can get an update from 
whoever supplied your original. Reader 
Service No. 109. 


Million Dollar Computer 
Poker Challenge 


Can a computer play intelligent 
poker? You wouldn’t think so to judge 
from the poker games available on to- 
day’s micros, but Mike Caro (“The Mad 
Genius of Poker’’), renowned poker 
writer and games programmer, is so 
convinced his Apple can beat any 
human that he has issued a $100,000 
challenge to several world-class poker 
players, and been accepted by two 





former champions of The World Series 
of Poker. A Vegas casino owner has 
offered a counterchallenge: to play for 
one million dollars cash. To ensure that 
the computer is not “‘helped’”’ in its 
decisions by the operator, special decks 
of cards with optical codes on the faces 
and optical scanners will be provided 
by the Data Bar Corporation. Think 
you can play poker better than a com- 
puter? You might get a chance to try 
if you’ve got a million dollars to back 
you up. Better yet, can you program 
your computer to beat Caro’s? Win or 
lose, the publicity for your game would 
be worth well over a million dollars. 


Caro also plans on releasing the 
challenge soon as a home game, with 
the slogan, “Play the program that 
won a million dollars in the World 
Series of Poker.’’ I’ve seen an advance 
copy, and the card graphics are impres- 
sive, much better than those tiny 
attempts at exact representation that 
are impossible to read that I’ve seen 
in other commercial games. Reader 
Service No. 101. 
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Save A Sorcerer 


Now that Exidy no longer makes 
them, how do you thousands of Sor- 
cerer owners get service and answers 
to your questions? Contact Jack Mac- 
Grath, who provides technical support, 
has parts, services Micropolis drives, 
and buys and sells systems. Reader 
Service No. 103. 


Less for 40 


You may recall my predicting a 
year ago that prices would come 
down considerably on hard disks with 
increased storage. CompuPro’s H40 
Hard Disk Subsystem for its IEEE 
696/S-100 bus compatible micro- 
computers costs $5495, and comes 
with a 40Mb Quantum 5.25-inch hard 
disk, CompuPro’s Disk 3 DMA disk 
controller, CP/M-80 or -86, and a 
double-density Qume Trak 842 floppy 
disk drive with 2.8Mb for backup on 
single- or double-density, single- or 
double-sided media. 

And, while they’ve got our atten- 
tion, CompuPro would like us to know 
that they have the first commercially 
available IEEE 696-compatible, 80286- 
based, multiuser microcomputer. This 
is, of course, Intel’s new CPU that is 
upward compatible from the 8088 and 
8086, but runs at 6 MHz, or twice as 
fast as 8086- or 68K-based systems. 
The System 816/F also has an 80287 
math coprocessor. It comes with5 12K 
16-bit static memory, expandable to 
1Mb, 12 serial ports, one Centronics- 
compatible printer port, one parallel 
port, 1.2Mb floppy storage, a 40Mb 
hard disk ,and CP/M-86 and MP/M-86. 
$14,995 walks away with it. Reader 
Service No. 119. 


Or Pascal 


Limbic Systems has a Pascal Com- 
piler for the Commodore 64 that 
generates native code. The package 
comes with linker, debugging facilities, 
and editor, and costs a phenomenal 
$50. Reader Service No. 107. 


Zenith Pretends It’s PC 


Z-Util from Lindley Systems is 
IBM PC emulation for the Zenith 
Z-100, emulating keyboard input, 
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screen printing and scrolling, and 
printer output, so that WordStar, the 
Perfect series, and dBasellI all run. 
Only modem and graphics programs 
don’t run, because of the differences 
in hardware. Screen dumps, however, 
do work, with automatic logic-seeking 
and correct screen aspect ratios. All 
this for $35. Reader Service No. 121. 


New Character 
for Old Printwheels 


How often have you wished for an 
odd symbol on your printer: an at-sign, 
or copyright symbol, for instance, or 
maybe that elusive TM that actually 
exists on some printwheels? Business 
Support Services will replace any char- 
acter on your Diablo, Xerox, or Qume 
metal or plastic printwheel with any 
other available character. Reader Ser- 
vice No. 117. 


64 -4th or Fight 


C64 UNIFORTH, from Unified 
Software Systems for the Commo- 
dore 64, is they claim, “virtually identi- 
cal to our other FORTH systems, 
making application software particu- 
larly easy to port.’’ The emphasis is 
mine, and the reason it’s there is be- 
cause virtually is one of those all-inclu- 
Sive advertising words that means 
whatever the person using it wants it 
to. As Humpty Dumpty said, ““When I 
make a word doa lot of work like that, 
I always pay it extra.’ That is, as 
Sportin’ Life sang, “‘It ain’t necessarily 
so.” I’m not saying their claim isn’t 
valid, just that virtually is one of those 
words that doesn’t like to be pinned 
down. (Neither does compatible.) 
Anyway, high-level source files use 
what they call the 1541 “‘relative file”’ 
access, with words included to create, 
delete, switch and load from these files. 
You can set and read directly from 
UNIFORTH the system clock time 
and date, access the graphics controller 
chip, including analog-to-digital con- 
version, and control the light pen, 
joystick, and three sound voices. You 
get a complete 6502 assembler, with 
easy data stack accessing macros, and 
a video editor with cursor addressing. 
The integer version, $70, is available 
now, while the software floating- 
point version, $125, is coming soon. 
You can upgrade for the difference in 
price. Full kernel sources cost $90. 
Write for a free brochure. Reader 
Service No. 105. 


Catch Your Words 


You can get an inexpensive print- 
out basket on which your printer sits 
from Systems Enhancement Engi- 
neering. $22.50 for the 12-inch model 
and $24.50 for 18, plus $3 p. and h. 
Reader Service No. 113. 


Not Another Cute Head! 


Tweaker, from Kludge Enterprises, 
is a hardware/software product for 
programmers and hardware engineers 
that puts that extra little bit into prod- 
ucts always needed to ship them out 
the door. Specify format. $595 KOB 
VARPTR LAX. Reader Service No. 0. 


Contact Points 


Business Support Services, Inc., 705 
Butternut Ave., Royal Oak, MI 48073; 
(313) 585-4736. 


Caro’s Poker Challenge: contact Henri 
Bollinger Agency, 9200 West Sunset Boul- 
evard, Los Angeles, CA 90038; (213) 
274-8483. 


CompuPro, 3506 Breakwater Court, Hay- 
ward, CA 94545; (415) 786-0909. 


Data Bar Corporation, 10202 Crosstown 
Circle, Eden Prairie, MN 55344; (800) 
672-2776. 


Lattice, Inc., Box 3072, Glen Ellyn, IL 
60138, (312) 858-7950. 

Limbic Systems, 560 San Antonio Road, 
Suite 202, Palo Alto, CA 94306; (415) 
424-0168. 

Lindley Systems, 21 Hancock Street, Bed- 
ford, MA 01730; (617) 275-6821 (evenings 
and weekends). 

Jack MacGrath, 73 Jordan Road, North 
Chelmsford, MA 01863; (617) 251-4776. 
Pencept, Inc., 39 Green St., Waltham, MA 
02154; (617) 893-6390. 


Serious Personal Computing, Box 7059, 
South Nashua, NH 03060; (603) 888-1376. 


Systems Enhancement Engineering, Box 
40215, Indianapolis, IN 46240; (317) 
844-8817. 


Unified Software Systems, Box 2644, New 
Carrollton, MD 20784; (301) 552-9590. 


BB 
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Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


101 





ADVERTISER INDEX 


Reader Reader Reader 
Service Service Service 
No. Advertiser ‘ No. Advertiser a No. Advertiser 


1 Ashton-Tate 28 GTEK 57 Quest Research 

2 Avocet Systems, Inc 29 Hallock Systems Consultants .... 58 Quic-N-Easi Products, Inc 

3 BD Software 30 Harvard Softworks 59 Rational Systems 

4 BG Micro 31 Institute For Applied Forth * Edward Ream 

5 Bonnie Blue Software 32 Integral Quality 60 The Redding Group 

6 Borland International 33 Laboratory Microsystems 61 Revasco 

7 California Digital Engineering... . 34 Lattice, Inc 62 S.C. Digital 

35 Lifeboat Associates 63 SemiDisk Systems 

9 The Code Works 36 Lifeline 64 Shaw Laboratories 
10 Compu-Draw 37 Logical Systems 65 Simpliway 
11 Computer Design Labs 38 Manx Software 66 Software Architects 
12 Computer Friends 39 MicroMethod 67 Software Building Blocks 
13 Computer Innovations 40 MicroMotion 68 Software Engineering Consultants . 
14 The Computer Journal 41 Microprocessors Unlimited 69 Software Toolworks 
15 Computer Language 42 MU Software 70 SLR Systems 
16 Computer Resources of Waimea. . . 43 Mylstar Electronics, Inc 71 Solution Technology, Inc 
17 Coriolis Company 44 Next Generation Systems 72 Solution Technology, Inc 
18 Creative Solutions 45 Novum Organum 73 Systems Guilds, Inc 
19 C User’s Group 46 Occo, Inc 74 Telecon Systems, Inc. ........ 

47 Overbeek Enterprises 76 Unified Software Systems 

83 DDJ Back Issues 48 Pacifica Technology 77 Visual Age 
84 DDJ Bound Volume 49 Pascal & Associates * Frank N. Vitaljic 
21 Data Access Corporation 50 Peopleware Systems 79 Warner Books 
22 Datalight $1 Phlexible Data Systems 80 Widener Consulting 
23 Dedicated Microsystems $2 The Programmer’s Shop 81 Mark Williams & Company 
24 D&W Digital 53 PRO Micro Systems 82 Workman & Associates 
25 Ecosoft, Inc 54 PRO Microsystems 85 DDJ Change of Address 
26 loehn Consulting 55 Protools 

271 GGM Systems Inc, . . .. «seca 


FourByteForth C COMPILER 


32 bits ¢ FULL C 
Address your entire space! ¢ UNIX* Ver. 7 COMPATABILITY 
e NO ROYALTIES ON GENERATED CODE 
e GENERATED CODE IS REENTRANT 
e C AND ASSEMBLY SOURCE MAY BE INTERMIXED 
e UPGRADES & SUPPORT FOR 1 YEAR 

' C SOURCE AVAILABLE FOR $2500 

@ a full screen editor 


6809 PDP-11*/LSI-11* 8080/(Z80) 8088/8086 
a full screen debugger HOST oe seh a 
a high level decompiler 00 
Os wi 500.00 500.00 
a complete assembler for the 68000 : —r 


Forth for the Sage Computer 


includes: 


RT-11*/RSX-11* 
debug mode and traps PDP-11* 


100 page user manual 8080, (280) 


fast Byte Sieve 1.8 seconds PCDOS*/CP/M86* 


. 8088/8086 
compiles 125* screens/minute 


*PCDOS is a trademark of IBM Corp. MSDOS is a trademark of MICROSOFT. 
UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of digital 


Special introductory price: $250. Equipment Corporation. FLEX/UNIFLEX is a trademark of Technical Systems 
consultants. CP/M and CP/M86 are trademarks of Digital Research. OS-9 is a 


Order now from SOFtware Architects SE nee eee 
1912 Grant, Berkeley, CA 94703 408-275-1659 


415) 549-3185 

; ‘cages TELECON SYSTEMS 
Fe ee ee ee 1155 Meridian Avenue, Suite 218 
San Jose, California 95125 


“approximate 








Like the molecules in a 
snowflake, the elements of a ' * - 
(of) an) e]0](1melslt-ler-ty-mer- lan el= ) 
structured and related in an 
Taliialiccmvscla(s)Nme)mere)enle) lars 
tions. Being able to present 
these combinations quickly 
-and efficiently, with maximum 
li(cydie)| i nvarclaremanlialianlvlsan een 
folcelanlanliare mn caleyuyicvele(ommiom tars 
mark of excellence which 
To) SM aTousre) e)al isi ilers (cle mele ltous 
base management system 
eleye lam ice) pamlarcme)cellarclavs 


Thousands of satisfied users, 
from amateur and profes- 

sional programmers to 

government agencies, major Compatible with CP/M, 
corporations and industries, Cp/\-86, MP/M-86, 

have found that DataFlex MSDOS, PCDOS, TurboDOS, 
has no equal in applications —_ \\ovell Sharenet, PC-Net, 








development software. Molecular N-Star, Televideo 

is Write or phone for our latest © MmmOST, Action DPC/OS, 

literature and a list of existing Omninet, IBM PC w/Corvus 
Fle) @) (ers lie) alse and OSM Muse. 


z 


| DATAF 


APPLICATIONS DEVELOPMENT SOFTWARE 





; DYNUWN@@l ates h@.@)n 10) ny AVON 
8525 S.W. 129th Terrace, Miami, Florida 33156 (305) 238-0012 TELEX 469021 Data Access Cl 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. DataFlex is a trademark of Data Access Corp. 
| Circle no. 21 on reader service cara. 


EXTENDED PASCAL FOR YOUR 
IBM PC, PC jr, APPLE CP/M, 
MSDOS, CP/M 86, CCP/M, 

OR CP/M 80 


ANNOUNCING... 
VERSION 2.0 


NOW ... 
WITH © 
WINDOWING 


$49.95 


NEW FEATURES 


WINDOWING! 


.. This is a real shocker. On the IBM PC or PC jr. you'll now 
have a procedure to program windows. ... Any part of the 
screen can be selected as a window and all output will 
automatically go to this part of the screen only. As many 
windows as you please can be used from the same 
program. 


AUTOMATIC OVERLAYS! 


... No addresses or memory space to calculate, you simply 
specify OVERLAY and TURBO PASCAL will do the rest. 


GRAPHICS, SOUND AND COLOR SUPPORT 
... For your IBM PC or JR! 


FULL HEAP MANAGEMENT! 


... Via dispose procedure. 


OPTIONAL 8087 SUPPORT! 


... Available for an additional charge. 
If you have a 16 bit computer with the 8087 math 
chip—your number crunching programs will execute up 
to 10X faster! 


ORDER YOUR COPY OF TURBO PASCAL VERSION 2.0 TODAY 


For VISA and MasterCard orders call toll free: 1-800-227-2400 x968 
In CA: 1-800-772-2666 x968 


(lines open 24 hrs, 7 days a week) 
Dealer & Distributor Inquiries welcome 
408-438-8400 





“What | think the computer industry is headed for: well 
documented, standard, plenty of good features, anda 
reasonable price.” 

Jerry Pournelle, 

Byte, February 1984 


“The Perfect Pascal” 
Alan R. Miller, 
Interface Age, January 1984 


If you already own Turbo 
Pascal version 1.0, you can 
upgrade to 2.0 for $29.95. Just 


send in your old master with 
your check. (Manual update 
included of course). 




















CHOOSE ONE (please add Check Money Order My system is: 8 bit 16 bit 

$5.00 for shipping and handling VISA MeisterCard Operating System: CP/M 80 

for U.S. orders) Card #- CP/M 86 MS DOS PC DOS__ 
Turbo Pascal 2.0 $49.95 Exp. date: Shipped UPS Computer: Disk Format: 





_____ Turbo Pascal 2.0 with 
8087 support $89.95 

_____ Update (1.0 to 2.0) Must 
be accompanied by the 
Original master $29.95 

—__ Update (1.0 to 8087) Must 
be accompanied by the 
Original master $69.95 








BD) BORLAND 


B®) INTERNATIONAL 


Borland International 

4113 Scotts Valley Drive 
Scotts Valley, California 95066 
TELEX: 472373 








Circle no. 6 on reader service card. 


Please be sure model number & format are correct. 

NAME: _ _ 
ee ee ee es ae 
CITY/STATE/ZIP: - 
TELEPHONE: 


California residents add 6% sales tax. Outside U.S.A. add $15.00. (If outside 
of U.S.A. payment must be by bank draft payable in the U.S. and in U.S. 
dollars.) Sorry, no C.O.D. or Purchase Orders. Al 





